This is a add on to my brain teaser, I can make sure that something is entered into the text box with this:
If IsNull(CodePick) Then
strEval = MsgBox("You must include a value", vbOKOnly, "Entry Error")
Exit Sub
Else
Now is it posible to limit the entry characters to only B, H, X, D...