Dim Suchmuster As String
        Dim Trefferliste As MatchCollection
        Dim Treffer As String
        Suchmuster = "(?<='item-amount'\s*span>)[0-9 ]+" '<- Hier lieht der Fehler
        rgx = New Regex(Suchmuster)
        Trefferliste = rgx.Matches(rtb1.Text) 'In RTB1 ist der Quellcode 
        ' gespeichert
        If Trefferliste.Count = 0 Then
            lbltext.Text = "Nichts gefunden"
        ElseIf Trefferliste.Count = 1 Then
            Treffer = Trefferliste.Item(0).ToString.Trim
            ListBox1.Items.Add(Trefferliste.Item(0))
            lbltext.Text = "Einen Treffer"
        Else
            lbltext.Text = "Mehr als einen Treffer"
            ListBox1.Items.Add(Trefferliste.Item(0))
            ListBox1.Items.Add(Trefferliste.Item(1))
            ListBox1.Items.Add(Trefferliste.Item(2))
            ListBox1.Items.Add(Trefferliste.Item(3))
            ListBox1.Items.Add(Trefferliste.Item(4))
        End If