This works for me.
VB Code:
Dim PageComplete As Boolean
Private Sub cmdLogin_Click()
'wb1 = webbrowser control
wb1.Document.All("password").Value = "YourPassword" 'password
wb1.Document.Forms("sign-in").submit 'login
End Sub
Private Sub Form_Load()
'wb1 = webbrowser control
wb1.Navigate ("https://www.amazon.com/gp/flex/sign-in/select.html/102-2175624-5181701?ie=UTF8&protocol=https")
Do Until PageComplete = True
DoEvents
Loop
End Sub
Private Sub wb1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If pDisp = wb1 Then
PageComplete = True
End If
End Sub