Dim pattern As String = "<span style=""color:#666666;"">Rang (.+?)</span>"
 
        Dim RegexObj As New Regex(pattern, RegexOptions.IgnoreCase)
        Dim RegexMatch As Match = RegexObj.Match(Daten)
 
        If RegexMatch.Groups.Count > 0 Then
            Label18.Text = RegexMatch.Groups(1).ToString
            Label18.Text = Replace(Label18.Text, "<br />", "")
        End If