Solved: Check textbox for text?

[blackie42]

'If isnumeric(textbox1)' checks to see if a number is entered in a TB (in a change sub) but is there something similar for checking to see if a letter or letters have been entered. I tried 'If isText' but it doesn't work.

thanks

Jon

[Kenneth Hobs]

Private Sub TextBox1_Change()
Dim s As String
s = Right(TextBox1.Value, 1)

Select Case s
Case 0 To 9
MsgBox "A number was entered."
Case "a" To "z"
MsgBox "A lowercase letter was entered."
Case "A" To "Z"
MsgBox "An uppercase letter was entered."
Case Else
MsgBox "Neither a letter nor a number was entered."
End Select
End Sub

[georgiboy]

If IsNumeric(TextBox1.Value) = False Then
MsgBox "This is text"
End If