Dim myWebClient As New Net.WebClient
        Dim Quelltext As String = myWebClient.DownloadString( _
          "http://www.orange-gaming.eu/index.php?option=com_content&view=artic" & _
          "e&id=12&Itemid=28")
 
        Quelltext = Quelltext.Remove(0, Quelltext.LastIndexOf("IP-Adresse: ") + _
          12)
        Dim IP As String = Quelltext.Substring(0, Quelltext.IndexOf("</td>"))
        MsgBox(IP)