Private Sub cmdCharacters_Click()
Dim Characters As String
Characters = InputBox("Enter Character M, F Or C inclusive ")
Do While Characters = "A" Or Characters = "B" Or Characters = "D" Or Characters = "E" Or Characters = "G" Or Characters = "H" Or Characters = "I" Or Characters = "J" Or Characters = "K" Or Characters = "L" Or Characters = "N" Or Characters = "O" Or Characters = "P" Or Characters = "Q" Or Characters = "R" Or Characters = "S" Or Characters = "T" Or Characters = "U" Or Characters = "V" Or Characters = "W" Or Characters = "X" Or Characters = "Y" Or Characters = "Z"
   MsgBox ("Invalid Character - Please Enter a vaild Character")
   Characters = InputBox("Re-enter Character M, F Or C inclusive")
Loop
MsgBox ("This is valid Character")
End Sub