<code>Private Function GetSessionID()
  Dim lngPos As Long
  Dim strSessionID As String
 
  With WebBrowser1.Document.documentElement
    lngPos = InStr(.outerHTML, "<font color=red>&</font>sessionid=")
    If lngPos > 0 Then
      strSessionID = Mid$(.outerHTML, lngPos + <font _
        color=red>15</font>, 19)
    End If
  End With
 
  GetSessionID = strSessionID
End Function
 
<font color=green>' Ereignis wird ausgelöst, sobald die Webseite
' vollständig geladen wurde</font>
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp _
  As Object, URL As Variant)
  On Error Resume Next
  WebBrowser1.Tag = ""
End Sub
 
<font color=green>' URL (Webseite) laden</font>
Private Sub URL_Load(ByVal sURL As String)
  With WebBrowser1
    .Tag = "Load"
    .Navigate sURL
 
    <font color=green>' Warten bis Seite vollständig geladen ist</font>
    While .Tag <> ""
      DoEvents
    Wend
  End With
End Sub
 
<font color=green>' Webseite laden</font>
Private Sub cmdLoad_Click()
  URL_Load "home.nexgo.de/m.spieler/hmm.htm"
  <font color=red>Text1.Text = GetSessionID()</font>
End Sub</code>