实时错误'5',无效的过程调用或参数

Option Explicit
Dim a, s As String
Dim Nr, b As String
Dim j, k As Integer
Dim m, i As Integer
Dim n As Double
－－－－－－－－－－－－－－－－－－－－－－－－－
Private Sub Command1_Click()
Open "e:\VB\GPS\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
Nr = Nr & s
Loop
Dim aa(1 To 25) As Integer
Dim bb(1 To 25) As Integer
m = 1
For j = 1 To 500
b = Mid(Nr, j, 1)
If b = "," Then
aa(m) = j
End If
If b = ";" Then
bb(m) = j
m = m + 1
End If
Next j
For m = 1 To 25
k = bb(m) - aa(m)
b = Mid(Nr, aa(m) + 1, k - 1)
Print b
Next m
Close #1
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
注："e:\VB\GPS\1.txt"这个文件是我输入的已知数据，格式如下：
a0,-0.231899321079E-06;
a1,0;
a2,0;
toe,0.720000000000E+04;
IODE,0.970000000000E+02;
sqra,0.51536526317

VB实时错误'5' VB代码“实时错误：'91' vb 实时错误5 实时错误'5': 无效的过程调用或参数 VB实时错误'424'要求对象 vb6.0 实时错误'53' 问题 vb 实时错误 '424' 要求对象 急急急 实时错误'-1(ffffffff)'是什么意思呀 帮忙找VB代码中的错误&&&实时错误 '3709' 为什么 实时错误'91': 对象变量或With块变量未设置