Daten aus Web holen

Sub Request_CortalConsors2()
Dim i As Long, objForm As Object, j As Long
Dim appIE As Object, varHTML As Variant
Set appIE = CreateObject("InternetExplorer.application")
Do While appIE.Busy
Loop
appIE.navigate "http://www.cortalconsors.de"
appIE.Visible = True
While Not appIE.ReadyState = 4
Wend
With appIE.Document.forms(1)
.elements("pattern").Value = 605395 'Beispiel:Kontron
.submit
End With
Do: Loop Until appIE.Busy = False
Do: Loop Until appIE.ReadyState = 4
End Sub