Imports System.Text.RegularExpressions
 
Module Module1
 
    Sub Main()
        Dim t As String
        t = "<td colspan='2' nowrap><marquee height='15px' name='marquee'" & _
            " width='170px' behavior='scroll' scrollamount='2'" & _
            "scrolldelay='80'" & _
            " width='100%' onmouseover='this.stop()' onmouseout='this.start(" & _
            ")'>Serious" & _
            " Case - So Serious</marquee></td>" & vbCrLf & _
            "und dann ein paar Zeilen weiter kommt der Text ein zweites Mal," & _
            "nur mit einem anderen Lied:" & _
            "<td colspan='2' nowrap><marquee height='15px' name='marquee'" & _
            " width='170px' behavior='scroll' scrollamount='2'" & _
            "scrolldelay='80'" & _
            " width='100%' onmouseover='this.stop()' onmouseout='this.start(" & _
            ")'>TKKG - " & _
            "Raetsel um die alte Villa</marquee></td>"
 
 
        Dim r As New Regex("this.start\(\)'>(.*?[^<>])</marquee>", _
          RegexOptions.Singleline Or RegexOptions.Multiline)
        Dim Treffer As Match = r.Match(t)
        While Treffer.Success
            Dim i As Integer
            For i = 1 To Treffer.Groups.Count
                Dim Ergebnis As Group = Treffer.Groups(i)
                If Ergebnis.Success Then
 
                    Console.WriteLine(Ergebnis.Value)
                    Console.WriteLine("An Position: " & Ergebnis.Index)
                    Console.WriteLine("Länge: " & Ergebnis.Length)
                    ' match start: Ergebnis.Index
                    ' match length: Ergebnis.Length
                End If
            Next
            Treffer = Treffer.NextMatch()
        End While
        Console.ReadLine()
    End Sub
 
End Module