Dim s() As Variant
s = Array(0, 1, 2, 3, 4)      
For j = 0 To 4
Text1(j) = s(j)
Next j
这样显示是正常的，但是以下时不正常跳出下标越界的错误
Private Sub faso()
filenum = FreeFile()
Open "C:\Documents and Settings\Administrator\桌面\vb\CL\00\20091020.txt" For Input As filenum
callji1 = Input$(LOF(filenum), filenum)
Close filenum
End Sub
Dim s() As Variant
s = Array(callji1)      
For j = 0 To 4
Text1(j) = s(j)
Next j
高手们能教教我怎么改吗？

是上标越界吧，callji1为一个字符串，赋值时只有一项，赋给s（0），使s()只有一项，你再执行下面循环时由于不存在s(1),s(2)，所以会出现错误

Private Sub faso()
Dim s() As String, callji1 As String,filenum as Integer,j as Integer
filenum = FreeFile()
Open "C:\Documents and Settings\Administrator\桌面\vb\CL\00\20091020.txt" For Input As filenum
callji1 = Input$(LOF(filenum), filenum)
Close filenum
s = Split(callji1, ",")      
For j = 0 To 4
Text1(j) = s(j)
Next j
End Sub