Hola, la verdad no se bien , pero probá esta llamada a InternetGetConnectedState que te devuelve si estas conectado a una Lan o no
Código:
Option Explicit
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Private dwflags As Long
Private Function Lan() As Boolean
Call InternetGetConnectedState(dwflags, 0&)
Lan = dwflags And &H2
End Function
Private Sub Command1_Click()
MsgBox "La red LAN está activa:? " & CBool(Lan())
End Sub
saludos
----------------------------------