BHO中存取网页IPersist解决方案

BHO中存取网页IPersist
Function GetHTML() As String
  Dim oPI As IPersistStreamInit
  Dim oPM As IPersistMemory
  Dim mem() As String
  Dim cbSize As Long
   
  Set oPI = IE.Document
  oPI.Save oPM, False
   
   
  cbSize = oPM.GetSizeMax
  ReDim mem(cbSize)
  MsgBox cbSize
  oPM.Save mem(0), False, cbSize
  Set oPM = Nothing
  ReDim mem(0)
   
End Function

上面这个代码出错，DELPHI版的我有

Function GetHTML2() As String ''''这个可以正常使用
  Dim oPF As IPersistFile
  Set oPF = IE.Document
  oPF.Save "c:\1.htm", False
  Set oPF = Nothing
End Function

上面这个可以，但是保存到文件了，我只想在内存中.....




------解决方案--------------------
Function GetHTML2() As String
GetHTML2 = IE.Document.body.innerHTML
End Function

------解决方案--------------------
各位，麻烦打断一下，问个问题
 Dim oPF As IPersistFile
这个要引用什么东西才可以运行？