public class InputBoxDemo
public Shared Sub Main
Dim PASSWORD As String
PASSWORD = InputBox("Password", "Password Dialog")
Do While PASSWORD <> "12345"
PASSWORD = InputBox("Password", "Password Dialog")
Loop
End Sub
End class