Visual Basic - Identificar

Amigos nuevamente soy yo, les pido perdon si molesto a alguien preguntando tanto pero soy nuevo ene sto de la programacion.

estoy haciendo un formulario y necesito que al presionar un boton el me identifique si el primer digito es 1 o 2 o 3 o 4 o 5 o 6 o 7 o 8 o 9.

de antemano les agradezco

Bueno, si lo que quieres es que identifique si es número:

If IsNumeric(Left(Cadena, 1)) Then
MsgBox "Si"
Else
MsgBox "No"
End If

o si lo que quieres es que identifique si está entre el 1 y el 9:

If Val(Left(Cadena, 1)) >= 1 Then
MsgBox "Si"
Else
MsgBox "No"
End If

Si quieres saber cual es el primer digito puedes usar :

primer digito=Left(Texto a evaluar,1) -----Te extrae el primer digito a la izquierda

y despues tendras que hacer las comparaciones necesarias
espero te sirva.