Private Sub txt1_Change() If txt1.Text <> Y Or txt1.Text <> N Then MsgBox("Only Y and N please", vbOKOnly, "Only Y or N please", None, None) = vbOK End Sub - Whats wrong with the code? >< Sry im only in grade 10 Computer science class, still learning, so No flaming please i just want to know how i can make it ::Beep:: and stop people from entering anything other than "Y" or "N" in the textbox, thanks.

EDIT: O i forgot to enter this part in the code, it still doesnt work: ----------------- Private Sub txt1_Change() If txt1.Text <> Y Or txt1.Text <> N Then MsgBox("Only Y and N please", vbOKOnly, "Only Y or N please", None, None) = vbOK End if 'Edited Part End Sub ----------------

Private Sub txt1_Change() If txt1.Text <> "Y" And txt1.Text <> "N" Then Result = MsgBox("Only Y and N please", vbOKOnly, "Only Y or N please") End If End Sub

Wait... [quote] If txt1.Text <> "Y" And txt1.Text <> "N" Then [/quote] And?? That would mess it up wouldnt it cuz im trying to get a yes or no answer. Cant enter both letters at the same time? Would OR work in the same code? -.-

No, the statement I gave is correct An important law to use when you are working with computer logic is: De Morgan's laws not (P and Q) = (not P) or (not Q) not (P or Q) = (not P) and (not Q) Here is the PROOF We start with what we want to be true: (txt1.Text = "Y") or (txt1.Text = "N") We want to invoke the Message box ONLY when that is NOT true: not((txt1.Text = "Y") or (txt1.Text = "N")) By using De Morgan's laws this is equal to: not(txt1.Text = "Y") and not(txt1.Text = "N") (txt1.Text <> "Y") and (txt1.Text <> "N")

Don't forget the quotes though as egkenny showed!