VB的小问题~~~~~~~~

Private Sub Command1_Click()
s = Len(Text1.Text)
x = 0
y = 0
z = 0
For i = 1 To s
c = Mid(Text1.Text, i, 1)
Select Case c
Case "a" To "z", "A" To "z"
x = x + 1
Case "0" To "9"
y = y + 1
Case Else
z = z + 1
End Select
Next i
Text2.Text = x
Text3.Text = y
Text4.Text = z
End Sub

Private Sub Command1_Click()
Dim i As Integer
Dim ascInt As Integer
Dim chrCount As Integer
Dim numCount As Integer
Dim qtCount As Integer
For i = 1 To Len(Text1)
ascInt = Asc(Mid(Text1, i, 1))
If ascInt >= 48 And ascInt <= 57 Then
numCount = numCount + 1
ElseIf ascInt >= 65 And ascInt <= 90 Or ascInt >= 97 And ascInt <= 122 Then
chrCount = chrCount + 1
Else
qtCount = qtCount + 1
End If
Next<