Aufruf InternetExplorer 7 aus VB6-Programm Error

Guten Tag,
ich möchte aus einem VB6.0-Programm den InternetExplorer 7 aufrufen, mir eine bestimmte Internetseite anzeigen und mir melden lassen, wann die Seite fertig geladen ist. Zur Laufzeit bekomme ich immer den Fehler „Laufzeitfehler 430 Klasse unterstützt keine Automatisierung oder unterstützt erwartete Schnittstelle nicht“ . Der Verweis auf Microsoft Internet Controls shdocvw.dll ist vorhanden. Was muss ich tun, damit das Programm endlich läuft? Bitte möglichst detailliert, da ich noch nicht sooo fit mit VB bin.
hier noch ein wenig Sourcecode:
in der Klasse classIE:
Dim WithEvents mobjIE As InternetExplorer

Public Sub Class_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
MsgBox URL, , „navigate Complete“
mblnComplete = True
End Sub
Public Sub Class_Initialize()
mobjIE = New InternetExplorer

mobjIE = New InternetExplorer

Im Text habe ich geschrieben, dass ich Laufzeitfehler 430 bekomme. Ich dachte, das sei ausreichend.
Mit CreateObject ruft er mir zwar den Internetexplorer auf, aber wie bekomme ich dann meine Events (z. B. readystate)?? Die brauche ich nämlich. Bei meinen bisherigen Versuchen mit CreateObject wartet er ewig auf das Event Readystate, obwohl die Seite schon längst fertig geladen ist, und bricht dann wegen Zeitüberschreitung ab.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]