' Library SHDocVw
' C:\WINDOWS\System32\shdocvw.dll
' Microsoft Internet Controls
Global ie5 As IWebBrowser2

Function getHTM(ByVal Surl As String) As String
If ie5 Is Nothing Then Call sesam_oeffne_dich
With ie5
    .Navigate Surl
    .Visible = True
    .Width = 1024
    .Height = 735
    .Left = 0
    .Top = 0
End With
Do: Loop While ie5.Busy
getHTM = ie5.Document.body.innerhtml
End Function

Private Sub sesam_oeffne_dich()
Set ie5 = CreateObject("InternetExplorer.Application")
If Len(Susr) * Len(Spwd) = 0 Then
' UF1 ist eine Userform zur Pflege der Anmeldedaten User und Passwort
    UF1.inputPWBox "PLS enter UID and PW for Internet Access", "Ich muss da" & _
      "rein!"
end if
ie5.Visible = False ' damit das Passwort Spwd nicht sichtbar ist
ie5.Navigate ("www.server.com/auth.cgi?name=" & Susr & "&passwort=" & Spwd)
' Server Name geändert ^
Do: Loop While ie5.Busy
End Sub