title: How do I end a Do...Until loop
body: <p>I am making a program at school and I don't know how to end the <code>Do...Until</code> loop. What I have already is a program that when a button is clicked an input box comes up asking for a password. What I then want to happen is if the user enters the wrong password, the price that appears should double and they get prompted for the password again. If they get the password correct, i want the program to exit. This is what I have already:</p>
  
  <pre><code>Public Class Form1
  
      Private Property userPassword As String
  
      Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
          Dim price = 100
          Dim realPassword = "hello"
          Do
              Dim userPassword = InputBox("Please enter the correct password to claim your money", "Claim Winnings")
              If userPassword = realPassword Then
                  MsgBox("You owe us £" &amp; price)
              Else
                  MsgBox("Incorrect password entered. You now owe £" &amp; price * 2)
  
              End If
          Loop Until userPassword = realPassword
      End Sub
  
      Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  
      End Sub
  
  End Class
  </code></pre>
  
  <p>The price doesn't go up if they enter the wrong password.</p>