This will check and see if a Network is installed.

Add a command button and a label to a project and cute and past the code below.

==========================================================
Private Declare Function GetSystemMetrics Lib "user32" _
(ByVal nIndex As Long)As Long
' Returns True if a Network is found (read-only) Const SM_NETWORK = 63
IsNetworkInstalled = GetSystemMetrics(SM_NETWORK)
End Function

Private Sub Command1_Click()
Label1 = IsNetworkInstalled
End Sub