Private Sub Command1_Click()
    Dim n As Integer
    Dim b As Integer
    Dim a(3) As Integer
    s = RTrim(Text1.Text)
'n = ?  (Text1.Text)
        For i = 1 To n
        'b = ? (Mid(s, i, 1))
        'Select Case ?
            Case 48 To 57
                a(0) = a(0) + 1
            Case 65 To 90
                a(1) = a(1) + 1
            Case 97 To 122
                a(2) = a(2) + 1
        End Select
    Next
'For i = 0 To ?
        '? = a(i)
    Next
End Sub