Imports System.Net
Imports System.IO
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim req As HttpWebRequest = CType(WebRequest.Create("http://web.smsbus.cl/web/"), HttpWebRequest)
        req.UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:5.0) Gecko/20100101 Firefox/5.0"
        Dim response As HttpWebResponse = CType(req.GetResponse(), HttpWebResponse)
 
        Using resStream As Stream = response.GetResponseStream()
            Dim reader As New StreamReader(resStream)
            MsgBox(reader.ReadToEnd)
        End Using
 
    End Sub
End Class