Example Code:
Private Sub Mycode()
Dim MyText As String = "Mypassword"
If MyText = Textbox1.Text Then
Msgbox("If Password is correct.", Vbinformation, "The Password Correct - Title"
Else
Msgbox("If Password is not correct.", vbcritical, "The Password Wrong - Title"
End If
End Sub
|