ReadFileSeq

Private Type Dati_Rec
Nome As String
Cognome As String
Eta' As Integer
End Type

Dim Dati_Rec As Dati_Rec
Dim R As String, NumFile As Integer

Private Sub Lettura_File_Campi_Sequenziale()
NumFile = FreeFile
Open "d:\c++\prova1.PLJ" For Input As NumFile
Do While Not EOF(NumFile)
Input #NumFile, Dati_Rec.Cognome, Dati_Rec.Nome, Dati_Rec.Eta'
With Dati_Rec
Debug.Print .Cognome, .Nome, .Eta'
End With
Loop
Close NumFile
End Sub