cambiar el pass de un form con ficheros

[juanjoxx]

hola a todos los pro....
ete es el poblem...
tengo un form en donde es para cambiar el pass de un id ya creacdo.. ok
el pass lo cambia pero cuando quiro logearme con el nueco pass me sale el msg q el pass no es el correcto ?
pero jui a ver cual era el problem al archivo de txt y vi q el nombre q le habia dado era = pero con un renglon de mas y eso hacia q no sea = a mi pass 
la pregunat es como booro esea otra linea .. para q solo el texto sea lo q compruebe   
si alguien ve cual es el error que ayude pe no sean envidioso 

como no se puede adjuntar el form lo copio para q lo cheqeen xD


Private Sub Command1_Click()
If Text1.Text = Text2.Text Then
Dim ruta As String
Dim i As Integer
ruta = "c:\Juanjo.txt"
i = FreeFile()
Open ruta For Output As #i
Print #i, Text1.Text
Close #i
MsgBox "Cambios relizados" + vbCrLf + "Satisfactoriamente", vbInformation, "Nuevo Pass"
Else
MsgBox "EL nuevo pass no coincide", 32, "Error"
Text2.SetFocus
End If
End Sub

Private Sub Command2_Click()
Dim ruta As String
Dim i As Integer
Dim var As String
ruta = "c:\juanjo.txt"
i = FreeFile()
Open ruta For Input As #i
var = Input(LOF(i), i)
Close i
If Trim(Text5.Text) = CStr(Trim(var)) Then
MsgBox "pass ok"
Else
MsgBox "Pass "
End If
End Sub

bueno no se como adjunta la interface de mi form pero alli ta as o menos 

[V_INT_Y_2]

hola, no se bien como estas guardando o como rescatas la informacion de tu txt... pero lo que podes hacer es aplicar la propiedad trim(...) cuando rescatas y cuando guardas... el trim lo que hace es sacar los espacios en blanco... proba.. y calquier escribi.. saludos

[juanjoxx]

If Trim(Text5.Text) = CStr(Trim(var)) Then
ya lo use si lo vez en el codigo
el problema es q lo q hay en el Trim(Text5.Text) y lo q contiene la CStr(Trim(var)) no es igual
porq el CStr(Trim(var)) sale text1 y ´pues eso no es = a lo q hay en la cja de texto5  si me entiendes no 

[juanjoxx]

ya salio
esta linea es lo q cambie ....
Open ruta For Input As #i
var = Input(LOF(i), i)
Close i

por esta
Open ruta For Input As #i
Line Input #i, var
Close i

y ahora corre sin problemass