Dim Daten As String = New WebClient().DownloadString(( _
   "http://www.ipcounter.de/stats/1"))
 Dim pattern As String = "<span class=""stat_value_bold""" & _
 "id=""stats_online"">(.+?)</span>"
 
        Dim RegexObj As New Regex(pattern, RegexOptions.IgnoreCase)
        Dim RegexMatch As Match = RegexObj.Match(Daten)
 
        If RegexMatch.Groups.Count > 0 Then
            Label16.Text = "Online: " & RegexMatch.Groups(1).ToString
        End If

Dim pattern As String = "<span style=""color:#666666;"">(.+?)<br></span>"
und auch
Dim pattern As String = "<td height=""80""><br><h1><span" & _
  "style=""color:#666666;"">(.+?)<br></span></h1></td>"
        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
        End If

   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