Как считать двумерный массив из текстового файла?! - VB

Private Sub Command1_Click()
 
Dim a(1 To 1000) As Double
Dim b(1 To 1000) As Double
Dim c(1 To 1000) As Double
Dim d(1 To 1000) As Double
 
Open "D:\data.txt" For Input As #1
 
For i = 1 To 600
Input #1, a(i)
Next i
Close #1
 
k = 0
For i = 1 To 600 Step 3
k = k + 1
b(k) = a(i)
List1.AddItem b(k)
Next i
 
k = 0
For i = 2 To 600 Step 3
k = k + 1
c(k) = a(i)
List2.AddItem c(k)
Next i
 
k = 0
For i = 3 To 600 Step 3
k = k + 1
d(k) = a(i)
List3.AddItem d(k)
Next i
 
 
End Sub