title: Input box with two values as inputs
body: <p>I have this code that asks for a key to open a certain window form. If the number of invalid keys is larger than 3, the application ends.</p>
  
  <pre><code>Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  
  
  
  
          Dim clave As String, attempts As Integer, intentoclave As String
  
          'This is the key
  
          clave = "UNI"
          attempts = 0
  
  
          For attempts = 1 To 4
  
  
              If attempts &lt; 4 Then
                  intentoclave = InputBox("Write the key")
  
                  If intentoclave = clave Then
                      Exit For
  
                      Me.Show()
                  End If
              Else
                  End
              End If
  
          Next
  
  
  
      End Sub
  </code></pre>
  
  <p>It's working OK, but I would like to enter the name of the user as well in the input box. How Can I do that?</p>