validasi vb 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