Считывание данных из структурированного файла - VB

Формулировка задачи:

Всем добрый день. Возник такой вопрос. Имеется файл, в котором записаны числа примерно так:

1 'тра-та-та
00125 'тра-та-та
'тра-та-та
08 'тра-та-та
'тра-та-та
001 'тра-та-та
'тра-та-та
175 'тра-та-та
17 'тра-та-та
5'тра-та-та

1 'тра-та-та
00125 'тра-та-та
'тра-та-та
08 'тра-та-та
'тра-та-та
001 'тра-та-та
'тра-та-та
175 'тра-та-та
64 'тра-та-та
5'тра-та-та

и т.д. (180 строк, может быть и больше, условие должно быть: пока не достигнут конец файла) Необходимо считать эти данные (без пояснений: 'тра-та-та) и записать в массивы, по 10 чисел, они разделены пустой строкой. ПОМОГИТЕ!!!!

Решение задачи: «Считывание данных из структурированного файла»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
 
Dim i%, j%, f%, S$, fn$
Const c = 10
f = FreeFile
fn = App.Path & "\data.txt"
On Error GoTo er
ReDim a(c, 1)
Me.Cls
i = 1: j = 0
Open fn For Input As #f
     Do While Not EOF(f)
        Line Input #f, S
        If Trim(S) = "" Then
If j <> 10 Then If MsgBox("не " & c & vbNewLine & "Продолжить ?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
           i = i + 1: j = 0
           ReDim Preserve a(c, i)
Me.Print
        Else
           j = j + 1
           a(j, i) = Val(Replace(S, ",", "."))
Me.Print a(j, i); " ";
       End If
     Loop
 Close f
Exit Sub
er: MsgBox Err.Description
 
End Sub
                        