1   2   3   4   5   5
1   2   5   6   8   9
如何把他们读入相应的文本框里

我试试，谢了！

可不可以请哪位高手给一点确切的程序呢?
谢谢…………

CommonDialog1.Filter = "data file (*.txt)|*.txt|all files|*.*"
CommonDialog1.ShowOpen
oldfile = CommonDialog1.FileName
Open oldfile For Input As #1
u = StrConv(InputB(LOF(1), #1), vbUnicode)
celiang = Split(u, vbCrLf)
shuju = Split(celiang(0), "    ")
Text1.Text = shuju(0)
Text2.Text = shuju(1)
Text18.Text = shuju(2)
Text19.Text = shuju(3)
Text20.Text = shuju(4)
Text3.Text = shuju(5)
Text4.Text = shuju(6)
Text21.Text = shuju(7)
Text22.Text = shuju(8)
Text23.Text = shuju(9)
For m = 1 To 20
shuju = Split(celiang(m), "    ")
Text5(m - 1).Text = shuju(0)
Text6(m - 1).Text = shuju(1)
If m = 2 Or m = 5 Or m = 8 Or m = 11 Or m = 14 Or m = 18 Then
Text9(m - 1).Text = shuju(2)
Text10(m - 1).Text = shuju(3)
Text11(m - 1).Text = shuju(4)
Text12(m - 1).Text = shuju(5)
Text13(m - 1).Text = shuju(6)
Text14(m - 1).Text = shuju(7)
Text15(m - 1).Text = shuju(8)
Text16(m - 1).Text = shuju(9)
Text17(m - 1).Text = shuju(10)
End If
Next m
Close #1