Imports System.Text.RegularExpressions

Dim reg As New Regex("\#[A-F0-9]{6}") ' Farbcode
Dim mc As MatchCollection = reg.Matches(myHtmlStream.ToString) 
 
For mcIndex As Integer = 0 To (mc.Count - 1)
    Debug.WriteLine(mc(mcIndex).Value)
Else
    Debug.WriteLine = "Keine Treffer..."
End If

-----
"There's never enough time to do all the nothing you want."
(Calvin and Hobbes)