Dim arry1(,) As String        

Dim arry2() As String        

Dim I As Integer,j As Integer        

Dim intTmp1 As Integer,intTmp2 As Integer        

intTmp1 = TextBox1.Lines.GetUpperBound(0)        

arry2 = Split(Trim(TextBox1.Lines(0))," ")        

intTmp2 = arry2.GetUpperBound(0)        

ReDim Preserve arry1(intTmp1,intTmp2)        

For I = 0 To intTmp1            

arry2 = Split(Trim(TextBox1.Lines(I))," ")            

For j = 0 To intTmp2                

arry1(I,j) = arry2(j)            

Next        

Next