RecordDataRead

Private Sub Form_Load()
Const RECORD_LENGTH = 10

Dim fnum As Integer
Dim file_name As String
Dim file_record As String * RECORD_LENGTH
Dim i As Integer

' Get the file name.

file_name = App.Path
If Right$(file_name, 1) <> "\" Then file_name = file_name & "\"
file_name = file_name & "Fruit.txt"

' Open the file.

fnum = FreeFile
Open file_name For Random As #fnum Len = RECORD_LENGTH

' Read the records.

For i = 1 To LOF(fnum) \ RECORD_LENGTH
Get #fnum, i, file_record
Debug.Print "[" & file_record & "]"
List1.AddItem Trim$(file_record)
Next i

' Close the file.

Close #fnum
End Sub