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=artic" & _
          "e&id=12&Itemid=28")
        htmlSplitted = Split(html, vbCrLf)
        Dim ip As String = htmlSplitted(218)
        MsgBox(ip)