Iniziamo subito da un esempio e poi analizzeremo il codice:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim reteDisponibile As Boolean
        reteDisponibile = My.Computer.Network.IsAvailable
        If reteDisponibile = True Then
            MsgBox("La rete è disponibile")
        Else
            MsgBox("La rete NON è disponibile")
        End If
    End Sub

Come vedere ho dichiarato una variabile del tipo "Boolean" (Tipo che può restituire solo true o false).
Poi ho dato il valora alla variabile, e come vedete tramite quella "stringa" di codice controlla se la rete è disponibile.
Poi ho dichiarato un if che se la rete restituisce true (disponibile) visualizza una msgbox che dice che è disponibile e viceversa.

Spero di esservi stato utile!