Duda en una condicion o no se....

[reel]

Fijate en la línea que está en rojo

Código:

Private Sub Command5_Click()
Dim resp As Integer
resp = MsgBox("¿Deseas elimiar la ficha?", vbYesNo + vbInformation, "ATENCION")
If resp = vbNo Then
  MsgBox "No ha eliminado ningun cliente", vbOKOnly + vbInformation,     "ATENCION"
Exit Sub
End If
Close
Open "C:\Archivos de programa\Microsoft Visual Studio\VB98\Proyectos\BASE DATOS\datos.dat" For Input As 1
Open "C:\Archivos de programa\Microsoft Visual Studio\VB98\Proyectos\BASE DATOS\pasadatos.dat" For Append As 2
Do While Not EOF(1)
Input #1, nomcogido
Input #1, apecogido
Input #1, dircogido
Input #1, pobcogido
Input #1, obscogido
If nomcogido = Text7.Text Then
Text1.Text = nomcogido
Text2.Text = apecogido
Text3.Text = dircogido
Text4.Text = pobcogido
Text5.Text = obscogido
Else
Write #2, nomcogido
Write #2, apecogido
Write #2, dircogido
Write #2, pobcogido
Write #2, obscogido
End If
Loop
Close #1
Close #2
Kill "C:\Archivos de programa\Microsoft Visual Studio\VB98\Proyectos\BASE DATOS\datos.dat"
Name "C:\Archivos de programa\Microsoft Visual Studio\VB98\Proyectos\BASE DATOS\pasadatos.dat" As "C:\Archivos de programa\Microsoft Visual Studio\VB98\Proyectos\BASE DATOS\datos.dat"
MsgBox "CLIENTE BORRADO", vbOKOnly + vbInformation, "ATENCION"
End Sub