ayuda con un registro

[marina22lalinda]

hola no se si me podrias ayudar
lo que pasa es que necesito hacer un programa en visual basic el cual tiene que eliminar y hacer una base de datos temporal, este es el codigo que estoy ocupando pero no corre.
Dim nombrecogido As String
Dim dircogido As String
Dim telcogido As String
Dim correocogido As String
Dim sexocogido As String

Private Sub Command1_Click()
Open "C:\Users\Documents\TAREAS\VISUAL BASIC\datos.txt" For Input As 1
Open "C:\Users\Documents\TAREAS\VISUAL BASIC\pasadatos.txt" For Append As 2
If Not EOF(1) Then
Input #1, nombrecogido
Input #1, dircogido
Input #1, telcogido
Input #1, correocogido
Input #1, sexocogido
If nombrecogido = Text6.Text Then
Text1.Text = nombrecogido
Text2.Text = dircogido
Text3.Text = telcogido
Text4.Text = correocogido
Text5.Text = sexocogido
Else
Write #2, nombrecogido
Write #2, dircogido
Write #2, telcogido
Write #2, correocogido
Write #2, sexocogido
End If
Loop
Close #1
Close #2
Kill "C:\Users\Documents\TAREAS\VISUAL BASIC\datos.txt"
Name "C:\Users\Documents\TAREAS\VISUAL BASIC\pasadatos.txt" As "C:\Users\Documents\TAREAS\VISUAL BASIC\datos.txt"
End Sub


Este es el codigo que estoy ocupando pero al eliminar la base de datos orignal me elimina el segundo block de notas el cual va a ser para la base de datos temporal