Suchfeld Website mit VBA befüllen

Sub PreisermittlungIE()
Dim ie As Object
Set ie = CreateObject("internetexplorer.application")
With ie
.Visible = True
.navigate "https://www.octopart.com"
Do While .busy
DoEvents
Loop
Do While .readystate  4
DoEvents
Loop
Application.Wait (Now + TimeValue("00:00:10"))
Set searchtxt = .document.getelementbyid("q")
searchtxt.Value = "123456"
.document.forms(0).submit
Do While .busy
DoEvents
Loop
Do While .readystate  4
DoEvents
Loop
.Quit
End With
End Sub