Public Class Form1
    Dim url As String = "www.google.de"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        MsgBox(CheckURL(url))
 
    End Sub
 
    Public Function CheckURL(ByVal URL As String) As Boolean
 
        Try
            Dim Response As Net.WebResponse = Nothing
            Dim WebReq As Net.HttpWebRequest = Net.HttpWebRequest.Create(URL)
            Response = WebReq.GetResponse
            Response.Close()
            Return True
        Catch ex As Exception
        End Try
    End Function
 
End Class