Import einer Tabelle aus dem Web

Sub Einloggen()
Dim IEApp As Object
Dim IEDocument As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate "http://193.84.28.179/bergrettung/login.asp"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.Document
Do: Loop Until IEDocument.ReadyState = "complete"
IEDocument.getElementById("text1").Value = "Mustermann"
IEDocument.getElementById("password1").Value = "12345"
Do: Loop Until IEDocument.ReadyState = "complete"
IEDocument.getElementById("submit1").Click
Do: Loop Until IEDocument.ReadyState = "complete"
IEApp.Navigate "http://193.84.28.179/bergrettung/mitgliederfunktionen.asp"
Debug.Print IEDocument.body.innertext
Set IEDocument = Nothing
Set IEApp = Nothing
End Sub