I'm making a program where you have to enter a passord, and then it executes another exe. I don't know how to do the last part but the password validation should be something like this right:

Private Sub Form_Load()
MsgBox "Please enter your password."
password = Int(password1)
Do
input1 = CInt(InputBox("Enter your password below."))
If (input1 = password) Then
MsgBox "Your password has been accepted."
Else
MsgBox "Invalid password, please try again", vbokonly, "Oops!"
End If
End If
Loop Until input1 = password

End Sub

-
(assuming "password1" is the password)
But that doesn't seem to work. can anyone help me with this?