Sub NetWorkCheck()
Dim available, ping As Boolean
Dim availstr As String
Dim pingstr As String
available = My.Computer.Network.IsAvailable
If available Then
availstr = "Network is available"
Else
availstr = "Network is not availble"
End If
ping = My.Computer.Network.Ping("194.154.164.42")
If ping Then
pingstr = "Pinged service is on-line"
Else
pingstr = "Pinged service is NOT on-line"
End If
Stop
End Sub