My.Computer.Network examples 
 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
10/15/2015
TheLonelyProgrammer.Net
Alone in a sea of non-programmers