Ayuda con Archivo Txt

[martinfabregues]

Bueno voy a pegar el codigo asi ven si pueden ayudarme.
Tengo un Archivo en el cual busco un dato previamente cargado y cuando lo muestro quiero modificarlo.
Mi problema es que no puedo modificarlo completamente.

Declaro la estructura

Structure NOMBRES
Dim Nombre as String
Dim Apellido as String
End Structure

Dim Nombres As NOMBRES

Grabo los datos

Private Sub Button1.Click.......

Nombres.Nombre = TextBox1.Text
Nombres.Apellido = TextBox2.Text

FileOpen (1, "Nombres.txt", OpenMode.Append)
WriteLine(1, Nombres.Nombre, Nombres.Apellido)
FileClose(1)



Ahora en este procedimiento busco un nombre ingresado en un TextBox

Dim Posicion as Long
Dim Cadena as String
Cadena = TextBox.Text

FileOpen (1, "Nombres.txt", OpenMode.Input)
Do While not EOF(1)
Input(1,Nombres.Nombre)
Input(1,Nombres.Apellido)
Posicion = Seek(1)
if Nombres.Nombre = Cadena then

Muestro los datos en cajas de texto

End if
Loop
FileClose(1)

Hasta ahi funciona perfecto..... el problema es cuando quiero modificar algun nombre ya ingresado desde las cajas en las cuales muestro cuando busco.

Probre asi y si pongo un nombre mas corto que el grabado originalmente me deja el sobrante de la cadena guardada en el archivo

FileOpen (1, "Nombres.txt", OpenMode.Append)
Nombres.Nombre = TextBox1.Text(caja en la que muestro)
Nombres.Apellido = TextBox2.Text(caja en la que muestro)
Seek(1, Posicion)
WriteLine(1, Nombres.Nombre, Nombres.Apellido)
FileClose(1)

no se si esta bien el ultimo codigo y agraderia si alguien me puede dar una mano con eso

Gracias