ماهو الخطأ في هذا الكود ؟

عندما احاول حفظ صفحة معروضة في اداة المتصفح (WebBrowser) باستخدام هذا الكود :

Private Sub Command1_Click()
Dim oPF As IPersistFile
   Set oPF = WebBrowser1.Document
   oPF.Save "TheFileNameHere.htm", False

End Sub

يطلع لي خطاء في التعريف

Dim oPF As IPersistFile

وش المشكلة ؟

ما هي الاشياء التي يجب اضافتها إلى برنامجي ؟