Click auf Submit Button in html via VBA

Sub Anmelden()
Dim IEApp As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate "https://xxx.xx/form.php?id=12345"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
With IEApp.Document
Do: Loop Until .ReadyState = "complete"
.getelementbyid("username").Value = "BENUTZERNAME"
.getelementbyid("password").Value = "PASSWORT"
.getelementbyid("submit").Click
End With
Set IEApp = Nothing
End Sub