高手帮我看看错在哪里可以吗？
Dim s() As Variants = 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
高手们能教教我怎么改吗？
