Input FINE

[Desmo16]

ciao ho iniziato da poco a conoscere visualbasic.ora ho un problema.
Inizio dicendo ciò che VOLEVO o avrei voluto fare. mi serviva un form che mi permettesse senza usare access di catalogare dati come Nome Cognome Peso e Vam e poi di modificarli e all'evenienza cercarli.
ho provato ad inserire dei codici.
1) non mi riconosce la parola FINE nel senso che continua a salvare dati:

Private Sub mnuNuovo_Click()
Dim Atleta As AtletaRecord, RecordNumber As Integer
Dim NewFile As String

CommonDialog1.CancelError = True
On Error GoTo cancelbutton
CommonDialog1.Filter = "File di dati (*.dat) *.dat"
CommonDialog1.ShowSave
NewFile = CommonDialog1.filename
Open NewFile For Random As #1 Len = Len(Atleta)

RecordNumber = 1
Atleta.Nome = InputBox("Inserire il nome dell' atleta  _  (digitare FINE una volta finito):", "Nome")
Do While UCase(Mid(Atleta.Nome, 1, 3)) <> "FINE"
Atleta.Cognome = InputBox("Inserire il cognome dell'atleta:", "Cognome")
Atleta.Peso = Val(InputBox("Inserire il peso dell'atleta:", "Peso"))
Atleta.Vam = Val(InputBox("Inserire la Vam dell'atleta:", "Vam"))
Put #1, RecordNumber, Atleta
RecordNumber = RecordNumber + 1
Atleta.Nome = InputBox("Inserire il nome dell' atleta  _  (digitare FINE una volta finito):", "Nome")
Loop
Close #1
cancelbutton:
Exit Sub

2)non mi ricerca i dati:

Private Sub Command1_Click()
Dim Nome As NomeRecord
Dim OldFile As String, target As String

If Label1.Tag = 0 Then
CommonDialog1.CancelError = True
On Error GoTo CancelButton
CommonDialog1.Filter = "file di testo (*.text) *.text"
CommonDialog1.ShowOpen
OldFile = CommonDialog1.filename
Open OldFile For Random As #1 Len = Len(Nome)
Label1.Tag = 1    'disabilita la selezione del file di testo
End If
target = UCase(Text1.Text)
Call Search(target)
CancelButton:
Exit Sub
End Sub

Perchè grazie

[diegocoz]

Tu fai la mid dal primo carattere per 3 lunghezze, ma la parola FINE ha quattro caratteri.

[Desmo16]

Grazie mille e per quano riguarda la seconda domanda?
Poi volevo chiedere un'altra cosa.salvo il progetto ma quando vado a modificarlo e apro le form mi dice che si è verificato un errore WIN32. io utilizzo purtroppo visualbasic 4 su Windows ME.
Dove posso trovare una versione di Visual Basic più recente almeno la .6 grazie mille

[MMarzia]

ciao desmo
ti invito a leggere il nostro regolamento

il linguaggio va specificato sempre, anche nel titolo, e il codice incluso nell'apposito tag [*CODE] ... [*/CODE] (senza asterischi)