Private Sub cmdURLs_Click()
  Dim sHTMLText As String
  Dim sURL As Variant
  Dim i As Integer
 
  ' zunächst Seitenquelltext ermitteln
  With WebBrowser1.Document
    sHTMLText = .documentElement.outerHTML
  End With
 
  ' jetzt URLs ermitteln
  sURL = HTML_GetAllURLs(sHTMLText)
 
  ' Liste löschen
  List1.Clear
 
 ' URLs vorhanden?
 If IsArray(sURL) Then
    ' ListBox mit den URLs füllen
    List1.Clear
    For i = 0 To UBound(sURL)
        List1.AddItem sURL(i)
    Next i
  Else
    List1.AddItem "keine URLs vorhanden!"
  End If
 
End Sub