Validasi Visual Basic hanya input huruf

Public Sub CharacterValid(KeyAscii As Integer)

Const Character = "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz <spasi>"

If KeyAscii <> 8 And KeyAscii <> 13 Then

   If InStr(Character, Chr(KeyAscii)) = 0 Then

      KeyAscii = 0

      Exit Sub

   End If

End If

End Sub

Posted in: program kuliah,tutorial,visual basic