VB Text aus Website

Ich hab das problem jetzt gelöst, danke

Private Sub Command2_Click()
Call SaveQuelltext(TMP & "\tmp.tmp")
Call checkStatus(Text1.Text)
End Sub

Private Sub SaveQuelltext(ByVal sFilename As String)
On Error Resume Next
Dim F As Integer
With WebBrowser1.Document.documentElement
F = FreeFile
Open sFilename For Output As #F
Print #F, .outerHTML;
Close #F
End With
End Sub

Function checkStatus(ICQ)
On Error Resume Next
temp = ReadFile(TMP & "\tmp.tmp")
Bar1.Panels.Item(2).Text = "Status auslesen"
If temp Like "*" & ICQ & " ist*alt=Offline*" Then Status.Caption = "Offline"
If temp Like "*" & ICQ & " ist*alt=Away*" Then Status.Caption = "Away"
If temp Like "*" & ICQ & " ist*alt=Occupied*" Then Status.Caption = "Occupied"
If temp Like "*Du hast das Limit erreicht. Versuche in 10 Minute(n).*" Then Status.Caption = "Limit Erreicht! Versuche es in 10 Minuten noch einmal, oder verbinde dich neu ins internet!"
If temp Like "*Du hast das Limit erreicht. Versuche in 9 Minute(n).*" Then Status.Caption = "Limit Erreicht! Versuche es in 9 Minuten noch einmal, oder verbinde dich neu ins internet!"
If temp Like "*Du hast das Limit erreicht. Versuche in 8 Minute(n).*" Then Status.Caption = "Limit Erreicht! Versuche es in 8 Minuten noch einmal, oder verbinde dich neu ins internet!"
If temp Like "*Du hast das Limit erreicht. Versuche in 7 Minute(n).*" Then Status.Caption = "Limit Erreicht! Versuche es in 7 Minuten noch einmal, oder verbinde dich neu ins internet!"
If temp Like "*Du hast das Limit erreicht. Versuche in 6 Minute(n).*" Then Status.Caption = "Limit Erreicht! Versuche es in 6 Minuten noch einmal, oder verbinde dich neu ins internet!"
If temp Like "*Du hast das Limit erreicht. Versuche in 5 Minute(n).*" Then Status.Caption = "Limit Erreicht! Versuche es in 5 Minuten noch einmal, oder verbinde dich neu ins internet!"
If temp Like "*Du hast das Limit erreicht. Versuche in 4 Minute(n).*" Then Status.Caption = "Limit Erreicht! Versuche es in 4 Minuten noch einmal, oder verbinde dich neu ins internet!"
If temp Like "*Du hast das Limit erreicht. Versuche in 3 Minute(n).*" Then Status.Caption = "Limit Erreicht! Versuche es in 3 Minuten noch einmal, oder verbinde dich neu ins internet!"
If temp Like "*Du hast das Limit erreicht. Versuche in 2 Minute(n).*" Then Status.Caption = "Limit Erreicht! Versuche es in 2 Minuten noch einmal, oder verbinde dich neu ins internet!"
If temp Like "*Du hast das Limit erreicht. Versuche in 1 Minute(n).*" Then Status.Caption = "Limit Erreicht! Versuche es in 1 Minuten noch einmal, oder verbinde dich neu ins internet!"
if temp Like "*" & ICQ & " ist*alt=Online*" Then Status.Caption = "Online"
If temp Like "*" & ICQ & " ist*alt=N/A*" Then Status.Caption = "N/A"
If temp Like "*" & ICQ & " ist*alt=DND*" Then Status.Caption = "DND"
If temp Like "*" & ICQ & " ist*alt=Free for chat*" Then Status.Caption = "Free for chat"
If temp Like "*" & ICQ & " ist*alt=Invisible*" Then Status.Caption = "Invisible"
Bar1.Panels.Item(2).Text = "Check beendet!"
End Function

Function TMP()
Set fs = CreateObject("Scripting.filesystemobject")
TMP = fs.getspecialfolder(2) & "\"
End Function


so hab ich das alles gelöst.