Visual Basic - Comparar rango de ascii

Como puedo comparar todo una rango de caracteres utilizando su codigo ascii.... por ejemplo.... comparar de a-z (chr(97) a chr(122))... para no tener que colocarlos de uno por uno en cada select case....
que fuese algo como....... case chr(97 to 122).... si es que se puede hacer....... de antemano gracias

En el evento keypress de un textbox puedes ser algo como esto:
Private Sub Text2_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 65 To 90
MsgBox "Si es mayúscula", vbInformation
Case 97 To 122
MsgBox "Si es minúscula", vbInformation
End Select
End Sub
Espero y sea lo que estas pidiendo si no es, se mas especifico en que evento lo quieres...saludos!!!

Si es parecido pero la diferencia es que aqui lo estas lanzando en el evento Keypress,,,, y yo ya lo tengo capturado en un arreglo tipo string (en cada espacio existe un caracter) y por medio de un for va analizar cada una de los espacios..... por ejemplo arreglo(1 to 27) y en cada espacio exista una letra cualquiera...... y por medio del for va a ir ordenando que existe en el arreglo....... por ejemplo

for i=1 to 27
selec case arreglo(i)
case chr(48 to 57)
msgbox "son numero"
case chr(97 to 122)
msgbox "son letras"
end select
netx i

algo como esto para no tener que hacer de uno por uno y no tener que hacer un case por cada caracter......
espero y me puedas ayudar....... de antemanano gracias

Puedes hacer algo como esto espero y te sirva:
Dim Arreglo(1 To 27) As String
Private Sub Command1_Click()
For I = 1 To 27
Select Case Chr(Arreglo(I))
Case "0" To "9"
MsgBox "NUMEROS", vbInformation
Case "A" To "Z"
MsgBox "MAYUSCULAS", vbInformation
Case "a" To "z"
MsgBox "MINUSCULAS", vbInformation
End Select
Next I
End Sub
Private Sub Form_Load()
Arreglo(1) = "48" 'Numero
Arreglo(2) = "68" 'letra mayuscula
Arreglo(3) = "57" 'Numero
For I = 4 To 27
Arreglo(I) = CStr(90 + I) 'Letras minúsculas
Next I
End Sub

Gracias eso es lo que estaba buscando......