怎么用VB编写“输入若干个正数（用-1结束输入），统计其中偶数的个数与奇数的个数。”

Option Base 1
Private Sub Command1_Click()
Dim p() As Integer, st As String
Dim o As Integer, q As Integer
st = Text1
Call a(st, p) '获得数组
Call b(p, q, o) '计算奇偶数
Print "偶数有" & o & "个，奇数有" & q & "个"
End Sub

Private Sub a(st As String, p() As Integer)
Dim k As Integer, t As Integer, n As Integer
Do
n = InStr(st, " ")
If t <> -1 And n <> 0 Then
t = Val(Left(st, n - 1))
k = k + 1
ReDim Preserve p(k)
p(k) = t
st = Right(st, Len(st) - n)
Else
Exit Do
End If
Loop
End Sub
Private Sub b(p() As Integer, q As Integer, o As Integer)
Dim i As Integer
For i = 1 To UBound(p)
If p(i) Mod 2 = 0 Then
o = o + 1
Else
q = q + 1