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