DoLoopUntil

Module Module1

    Sub Main()
        Dim password As String = String.Empty
        Do
            password = InputBox("What is the password?", "Password Input", "Please Input the new password: ")
            password = password.ToUpper()
        Loop Until password = "SHAZAM"
        Console.ReadLine()
    End Sub
End Module