Dim wb As New WebClient
Dim html As String 
Dim htmlSplitted(-1) as String
 
html = wb.DownloadString( _
  "http://www.orange-gaming.eu/index.php?Option=com_content&view=article&id=12" _
  & _
  "Itemid=28")
htmlSplitted = Split(html, "Das zu splittende Zeichen")

For each sLine as String in htmlSplitted
    '... aktuelle Zeile ist sLine
Next