Finde links !!!!!

Jeg har en .html fil
Den vil jeg gerne finde alle links i, og have dem skrevet ud.
sOuts er .html-filen ;-)

I functionen her finder/skriver den kun 1 link !?!

Koden:
sOuts = RegExpTest(sOuts)

Function RegExpTest(strng)
  Dim regEx, Match, Matches  ' Create variable.
  Set regEx = New RegExp  ' Create regular expression.
  regEx.Pattern = "(\bhttp\:\/\/)?(\bw{3}\.\S+\.[a-z][a-z]+\b)(\/\S+\b)?(\?\S+\b)?"
  regEx.IgnoreCase = True  ' Set case insensitivity.
  regEx.Global = True  ' Set global applicability.
  Set Matches = regEx.Execute(strng)  ' Execute search.
  For Each Match in Matches  ' Iterate Matches collection.
RetStr = RetStr & "Match " & I & " found at position "
RetStr = RetStr & Match.FirstIndex & ". Match Value is "'
RetStr = Match.Value & vbCRLF
  Next
  RegExpTest = RetStr
 
End Function