VB统计代码

比如：123456789123456 我写出这几个数字中 统计奇数有几个 统计偶数有几个 代码怎么写啊

Private Sub Form_Click()
Dim a As String, b As String
Dim o As Integer, j As Integer
a = InputBox("请输入数字", "提示")
For i = 1 To Len(a)
b = Val(Mid(a, i, 1))
If b Mod 2 = 0 Then
o = o + 1
Else
j = j + 1
End If
Next i
Print "偶数为" & o & "个,奇数为" & j & "个。"
End Sub

Private Sub Form_Load() Dim str As String Dim strs() As String Dim i As Long Dim lngStr As Long str = InputBox("请输入一组数字")

lngStr = Len(str) ReDim strs(lngStr) For i = 0 To lngStr - 1 strs(i) = Mid$(str, i + 1, 1) Next For i = 0 To lngStr - 1 If strs(i) Mod 2 Then MsgBox strs(i) & "为奇数" Else MsgBox strs(i) & "为偶数" End If Next End Sub