Visual Basic - INformacion sobre formularios en Visual Basic

Buenas noches, amigos necesito una ayuda para crear en visual basic un programa que me cuente los digitos, las mayusculas, minisculas y caracteres especiales....

Les agradeceria su ayuda porque tengo ya la pantalla hecha pero no me hace nada y me da error.

¿ Y cual es la pregunta o el problema ?

Espero que esta parte de codigo te oriente un poco . Saludos

Private Sub Command1_Click()
Dim texto As String

texto = "Text1"

For i = 1 To Len(texto)
Select Case Asc(Mid(texto, i, 1))
Case 97 To 122: MsgBox "Minuscula"
Case 65 To 90: MsgBox "Mayuscula"
Case Else: MsgBox "Caracter Especial"

End Select
Next
End Sub

Si buscas en la ayuda "Juego de caracteres" verás que los números están entre los códigos 48 y 57, las mayúsculas entre el 65 y 90 y las minúsculas entre el 97 y 122, teniendo encuenta que la Ñ es el 209 y la ñ el 241, con el KeyAscii no tienes que tener ninguna dificultad.

Gracias por la ayuda amigo lo voy a implementar a ver como me va...

Cualquier ayuda que necesites estoy a la orden