Visual Basic - pass

Private Sub Form_Activate()
Dim pass As String
Form1.Hide
pass = InputBox("dame el pass")

If pass <> "morpheus" Then
While (x <> 1000)
Form1.Hide
x = MsgBox("Jod3t3", 4096)
Wend
End If
End Sub

he creado un programilla , lo he copiado en la carpeta de inicio de windows
para que pida una pass y no puedas hacerder,
pero esto no tira bien
en teoria teniendo el modo modal el 4096 no tendria ke dejar ejecutar ningu funcion pero no tira , alguien me puede ayudar a perfecionarko

el Form.hide no tiene que ir fuera del bucle???