输入若干个字符，统计其中有多少个英文字母字符，数字字符及其他字符，用vb编成程序

帮我啊

---

一个文本框，一个按钮，都是默认属誉孙敬性

Private Sub Command1_Click()
Dim str As String
Dim a As Long, b As Long, c As Long
For i = 1 To Len(Text1.Text)
str = Mid(Text1.Text, i, 1)
Select Case Asc(str)
Case 48 To 57: a = a + 1
Case 65 To 90: b = b + 1
Case 97 To 122: b = b + 1
Case Else: c = c + 1
End Select
Next i
MsgBox "数字 " & a & " 个庆慎，凯源" & "字母 " & b & " 个，" & "其他 " & c & " 个"
End Sub

---