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