Try this
Code
Option Strict On
Imports System.Net
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Data As String
Data = GetPage("http://www.google.rs/")
If Data <> vbNullString Then
If InStr(Data, Application.ProductVersion) <> 0 Then
MessageBox.Show("You are up to date!")
Else
MessageBox.Show("New update is available!")
End If
End If
End Sub
Private Function GetPage(ByVal Url As String, Optional ByVal Proxy As String = Nothing, Optional ByVal TimeOut As Integer = 4000) As String
Dim Request As HttpWebRequest
Dim Response As HttpWebResponse
Dim ProxySrv As New WebProxy(Proxy)
Dim Reader As IO.StreamReader
Try
Request = DirectCast(WebRequest.Create(Url), HttpWebRequest)
Request.Proxy = ProxySrv
Request.Timeout = TimeOut
Response = DirectCast(Request.GetResponse(), HttpWebResponse)
Reader = New IO.StreamReader(Response.GetResponseStream())
GetPage = Reader.ReadToEnd()
Response.Close()
Reader.Dispose()
Catch ex As Exception
GetPage = vbNullString
MessageBox.Show(ex.Message)
End Try
End Function
End Class