Private Sub WebBrowser2_Enter()
Const url = "http://meinserver.de/version.html"
Dim Response As String
 
' Zugriff aufs Web
Dim WebBrowser As Object
Set WebBrowser = CreateObject("InternetExplorer.Application")
WebBrowser.Navigate url
 
' Warten, bis die Seite geladen ist
Do While WebBrowser.Busy
  DoEvents
Loop
 
Response = WebBrowser.Document.Body.InnerHtml
 
' Ressourcen freigeben
WebBrowser.Quit
Set WebBrowser = Nothing
MsgBox Response
 
 
End Sub

Zitat:

Wenn es tatsächlich nur darum geht, eine Info aus einer Webseite in eine Variable einzulesen, ist der Weg über den InternetExplorer nicht gerade resourcenschonend.