if (not) command?

[macbrutal]

Hi i got a tiny question about those basic stuff.

There are "If textbox1.text ="" then
msgbox ="correct" " commands

But is there any "force" command like

"If text1.text ="122" then
msgbox ="It must be 123" ?

[akhileshbc]

Your question is not clear...

If text1.text="122" then 
msgbox "it has to be 123 like this"
text1.text="123"
end if

or

If text1.text="122" then 
msgbox "it has to be 123 , plase do type it!!!"
text1.selstart=0
text1.sellength=len(text1.text)
text1.setfocus
exit sub   'exit the sub (means not executing anyother code below here in that sub"
end if

[MartinLiss]

Or perhaps this which won't allow the user to leave Text1 until it's correct.

Private Sub Text1_Validate(Cancel As Boolean)

    If Text1.Text <> "123" Then
        MsgBox "Text1 Must be 123"
        Cancel = True
    End If
    
End Sub

[jmsrickland]

If you want to "force" a user to input "123" and nothing else is accepted then why even have the user enter anything at all? Just put "123" in the Textbox and lock it so user can't change it.

[MartinLiss]

If you want to "force" a user to input "123" and nothing else is accepted then why even have the user enter anything at all? Just put "123" in the Textbox and lock it so user can't change it.

I'm guessing that the OP wants to create a password verifier.

[lone_REBEL]

Or you could verify it like this too. Its the same as the other methods, only I would consider it more user friendly.

Dim holdcursor As Boolean
holdcursor = False
If Text1.Text <>"123" Then     'or whatever you want it to be
   MsgBox "Incorrect value. The value needs to be 123."
   'here it is your choice to follow either way of those below
   'if you want to "force" your value
   Text1.Text = "123"
   'and if you simply want to put the cursor back to the textbox and verify it
   holdcursor = True
Else
   holdcursor = False
End If

Private Sub Text1_LostFocus()
   If holdcursor Then Text1.SetFocus
End Sub