Check conexión internet

Public Function coneccionInternet() As Boolean
        Dim resp As Boolean = False
        Dim url As String = "http://clients3.google.com/generate_204"
        Try
            Using client = New WebClient() ' Imports system.net
                Using client.OpenRead(url)
                    'resp = True
                    Return True
                End Using
            End Using
        Catch ex As Exception
        End Try
        Return False
    End Function


fuente