求问，如何在输入的一段文本中检查出奇数和偶数的个数

如果dim x，y，i asinteger
If AscW(Mid(Text1.Text, i, 1)) >= 48 And AscW(Mid(Text1.Text, i, 1)) <= 57 and i mod 2=0 Then
x=x+1
else
y=y+1
end if
总是提示"If AscW(Mid(Text1.Text, i, 1)) >= 48 And AscW(Mid(Text1.Text, i, 1)) <= 57 and i mod 2=0 Then"这一段是无效的。怎么做啊。。

asc() 字符型参数或变量

Private Sub 奇偶数()
Dim W As String, i As Integer, L As Integer, d As Integer
Dim x As Integer, y As Integer, C As String
W = Trim(Text1.Text, i, 1)
L = Len(W)
For i = 1 To L
C = Mid(W, i, 1): d = Asc(C)
If d >= 48 And d <= 57 Then
If d Mod 2 = 0 Then
x = x + 1 '　偶数个数
Else
y = y + 1 '　奇数个数
End if
End if
Next
C = "偶数个数：" & CStr(x) & "；奇数个数：" & CStr(y) & "。"
MsgBox C, 0 + 64, "统计结果"
End Sub

为什么那么多楼消失了。。。