Option Explicit
Dim sUrl As String
 
Private Sub Form_Load()
sUrl = "https://secure.imdb.de/register-de/login"
  With wb1
    .Tag = "Load"
    .Navigate sUrl
 
    While .Tag <> ""
      DoEvents
    Wend
  End With
End Sub
 
Private Sub wb1_DocumentComplete(ByVal pDisp As Object, _
  URL As Variant)
  wb1.Tag = ""
End Sub
 
Private Sub cmdLogin_Click()
wb1.Document.Forms(1).login.Value = "Mustermann"
wb1.Document.Forms(1).password.Value = "falsch"
wb1.Document.Forms(1).submit
End Sub