Преобразование "столбцов" текстового файла в массивы - VB

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

Всем привет. Помогите с задачкой: имеется txt файл, в нем в два столбика забиты численные значения в виде: 0,65 0,154 0,64 0,814 0,68 0,492 и т.д. требуется посчитать количество строк в этом файле, это количество разделить на 18 (число может меняться, нужно чтоб можно было его менять), полученный результат использовать для создания массивов, т.е. например 432(строки)/18=24. Затем эти 432 строки разбить по 24 и сделать массивы: с 1 по 24 1-го столбца - один массив a1(i), с 1 по 24 2-го столбца - второй массив a2(i) с 25 по 48 1-го столбца - третий массив a3(i), с 25 по 48 2-го столбца - четвертый массив a4(i) и т.д. заранее огромное спасибо

Решение задачи: «Преобразование "столбцов" текстового файла в массивы»

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

                            Private Sub Command1_Click()
    Dim NumArr As Integer, i As Integer, j As Integer, s, f As Integer, numS As Integer
    numS = 18   ''''''''''''''Количество разбиений
    NumArr = CalcNumString(App.Path & "\1.txt") / numS
    MsgBox "Кол-во строк в файле - " & NumArr * numS & vbCrLf & _
           "Кол-во разбиений - " & numS & vbCrLf & _
           "Кол-во массивов - " & numS * 2 & vbCrLf & _
           "Кол-во строк в каждом массиве - " & NumArr
    ReDim Arr(1 To numS * 2, 1 To NumArr)
    On Error Resume Next
                        