Visual Basic - Rangos [a to z]

Amigos solo tengo la duda de como declarar una variable que tenga un rango de la A a la Z para despues comparar, si una caja de texto tiene una letra sea la que sea entre a la condicion del if si no que tome otro valor ejemplo no funcional:

dim variable as "NO SE"

if textbox.text <> At to Z then
se cumple
....
.....

No se si esta es la manera más apropiada, pero da buen resultado.

Te advierto que el siguiente codigo fue escrito en el VBA de Excel, por lo que tendras que hacerle algunas modificaciones.

Este codigo lo que hace es averiguar la longitud del texto y luego analizar caracter por caracter si es numerico o no.

Private Sub CommandButton1_Click()
Dim strTexto, strCaracter, strMensaje As String, i, a As Integer
texto = TextBox1.Text
a = Len(texto) ' a= longitud del texto
For i = 1 To a 'Divide el texto en caracteres uno a uno
strCaracter = Mid(texto, i, 1)
If IsNumeric(strCaracter) = True Then
strMensaje = MsgBox("Hay un numero")
Exit For
End If
Next i
End Sub

Ahora, este codigo solo diferencia numeros de letras, si quieres reconocer caracteres especiales, podrias recurrir a una sentencia select case y/o al codigo Ascii de las letras.

Espero que te sirva de algo