Чтение двумерного массива из файла. VB6

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

всем привет! пожалста помогите... задача такая.. открыть текстовый файл с данными(дробные числа типа 0,0000) в виде двумерной матрицы (600 строк, 3 столбца), каждое число разделено пробелом.. в бейсике новичок.. и как я понял..данные открываются в строковом формате... поэтому решил пользоваться функцией val, чтобы дальше можно было производить математические вычисления с этой матрицей

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command5_Click()
Dim Stroka As String
Dim M(1 To 3, 1 To 600) As Double
Dim i, j As Integer
 
On Error GoTo Cansel
CommonDialog1.CancelError = True
CommonDialog1.Filter = "Текстовые файлы (*.txt) |*.txt"
CommonDialog1.Flags = cdlOFNFileMustExist
CommonDialog1.DialogTitle = "Окрыть матрицу"
CommonDialog1.ShowOpen
F = FreeFile
Text2.Text = ""
Open CommonDialog1.FileName For Input As #F
 
Do While Not EOF(F)
 
Line Input #F, Stroka                 'запутался в этих циклах О_о
For i = 1 To 3
For j = 1 To 600
M(i, j) = Val(Stroka)
Text2 = Text2 & M(i, j) & vbCrLf
Next j
Next i
 
Loop
 
Close #F
 
Exit Sub
Cansel:
If Err.Number = cdlCancel Then
Exit Sub
Else
MsgBox Err.Description
End If
End Sub

заранее благодарю за помощь

Решение задачи: «Чтение двумерного массива из файла. VB6»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
 
Dim Stroka As String
Dim M(1 To 3, 1 To 600) As Double, m1
Dim i, j As Integer
 
On Error GoTo Cansel
CommonDialog1.CancelError = True
CommonDialog1.Filter = "Текстовые файлы (*.txt) |*.txt"
CommonDialog1.Flags = cdlOFNFileMustExist
CommonDialog1.DialogTitle = "Окрыть матрицу"
CommonDialog1.ShowOpen
F = FreeFile
Text2.Text = ""
Open CommonDialog1.FileName For Input As #F
 i = 0
Do While Not EOF(F)
 
Line Input #F, Stroka 'запутался в этих циклах О_о
m1 = Split(Stroka, " ")
j = j + 1
For i = 1 To 3
M(i, j) = m1(i - 1)
Text2 = Text2 & M(i, j) & "   "
Next i
 Text2 = Text2 & vbCrLf
Loop
 
Close #F
 
Exit Sub
Cansel:
If Err.Number = cdlCancel Then
Exit Sub
Else
MsgBox Err.Description
End If
End Sub