Select Case keyascii Case Asc("A") To Asc("Z") Case Asc("a") To Asc("z") Case Else MsgBox "Alphabets not allowed!", vbCritical End Select