If My.Computer.Network.IsAvailable Then
    MessageBox.Show("ネットワークに繋がっています。")
Else
    MessageBox.Show("ネットワークに繋がっていません。")
End If