tutto il codice è un po' lungo da postare

questo nel modulo:

Option Explicit
Type Contatto
Record As Integer
ID As Integer
Salvato As Boolean
Nickname As String * 30
EMail As String * 40
Msn As String * 40
Forum As String * 30
Blog As String * 40
Cognome As String * 20
Nome As String * 20
Cellulare As String * 11
Citta As String * 20
Indirizzo As String * 35
Descrizione As String * 200
End Type

se non gli dò una dimensione fissa mi dà comunque lo stesso errore se riempio un po' tutti i campi...

in particolare l'errore si verifica quando scrivo con Put #1, C.Record, C
o leggo con la Get #1, N_Rec, C

il file lo apro con

Open App.Path + "\Rubrica.rbc" For Random As #1

il programma prima funzionava bene, quindi non ci dovrebbero essere errori particolari