sto realizzando in visual un programma che prende in input dei dati, da all' utente la possibilità di scegliere quale cancellare e infine lo cancella ...... questo è il codice, che ho fatto io ma non riesco a finirlo... mi potete dare una mano ?? :

Private Type contatto
cognome As String * 15
nome As String * 15
telefono As String
cancellato As Boolean
End Type
Dim dato As contatto
Dim risposta As Integer

Private Sub cmdInserisciDati_Click()
numfile = FreeFile()
Open "Rubrica.dat" For Random As numfile Len = Len(dato)
For i = 1 To 3
dato.nome = InputBox("Inserire nome" + Str(i))
dato.cognome = InputBox("Inserire cognome" + Str(i))
dato.telefono = InputBox("Inserire telefono" + Str(i))
dato.cancellato = False
Put numfile, i, dato
Next i
Close numfile
End Sub

Private Sub cmdCancella_Click()
End Sub
numfile = FreeFile
Open "Rubrica.dat" For Random As numfile Len = Len(dato)
While EOF(numfile) = False
Get numfile, , dato
risposta = MsgBox(numfile, vbYesNo, vbQuestion, "Cancellare")
If risposta = vbYes Then
dato.cancellato = True
End If
Wend

If dato.cancellato = True Then
Put nuovo, , dato
End If