Private Sub Form_Load()
ReadTextFile ("http://www.google.com")
End Sub
 
Public Function ReadTextFile(URL As String)
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
   IE.Navigate URL
 
   While IE.Busy
       DoEvents
   Wend
      ReadTextFile = IE.Document.documentelement.outerHTML
MsgBox ReadTextFile
End Function

Private Sub WebBrowser1_DownloadComplete()
 
  Dim sFormDat() As Variant
  Dim sPos As Long
  Dim ePos As Long
  Dim ComCount As Integer
 
  ComCount = 0
  With WebBrowser1.Document.documentelement
    Do
      ' nach <!-- suchen
      sPos = InStr(sPos + 1, .outerHTML, _
        "<!--", vbTextCompare)
      If sPos > 0 Then
        ' nach --> suchen
        ePos = InStr(sPos + 4, .outerHTML, "-->")
        If ePos > 0 Then
          ' Variablenwert auslesen und im Array speichern
          ReDim Preserve sFormDat(ComCount)
          sFormDat(ComCount) = Mid$(.outerHTML, sPos + 4, _
            ePos - sPos - 4)
          ComCount = ComCount + 1
        End If
      Else
        sPos = 0
      End If
    Loop Until sPos = 0
  End With
 
  Call infodxbox(sFormDat())
 
End Sub

With WebBrowser1.Document.documentelement