codice:
Private Sub Form_Load()
numfile=FreeFile
Open "c:\pippo.dat" For Random As numfile
End Sub

Private Sub Command1_Click()
dato=Text1.text
Put #numfile, posizione, dato
End Sub
I problemi arriveranno nella definizione della posizione: conviene
che utilizzi delle variabili di lunghezza fissa; non utilizzare, se
è possibile, stringhe di lunghezza variabile, altrimenti dovrai utilizzare dei caratteri che ti indichino la fine della stringa inserita