Easily
check if character is upper case, lower case, alpha or
numeric using API.
Preparations
Add 1 Text
Box to your form.
Module Code
Declare Function
IsCharUpper Lib "user32" Alias "IsCharUpperA" _ (ByVal cChar As Byte) As
Long Declare Function IsCharLower Lib "user32" Alias "IsCharLowerA"
_ (ByVal cChar As Byte) As Long Declare Function IsCharAlpha Lib "user32"
Alias "IsCharAlphaA" _ (ByVal cChar As Byte) As Long Declare Function
IsCharAlphaNumeric Lib "user32" Alias _ "IsCharAlphaNumericA" (ByVal cChar As
Byte) As Long
Form Code
Private Sub
Text1_KeyPress(KeyAscii As Integer) '1 - True, 0 -
False MsgBox "Upper Case: " & IsCharUpper(KeyAscii)
& _ " Lower Case: " & IsCharLower(KeyAscii) &
_ " Alpha: " & IsCharAlpha(KeyAscii) & _
" Alpha or Numeric: " & IsCharAlphaNumeric(KeyAscii) End Sub
