ecco in fase di registazione è cosi:
Private Type rec
num As String * 10
numer As String * 10
End Type
Dim r As rec
Dim numero As String

Private Sub Command1_Click()
Open "c:\prova.txt" For Random As #1 Len = Len(r)
r.num = Text1.Text
r.numer = Trim(r.num)
l = LOF(1) / Len(r) + 1
Put #1, l, r.numer
Close #1
End Sub

ma memorizza il primo dato immesso e l'ultimo! dove sbaglio????