Visual Basic - Controlar error de red

Hola a todos
como puedo enviar un mensaje de error cuando no esten los equipos en red.

Ejemplo:

on error goto mi_error

\\\'aqui el codigo para intentar la conexion en red

on error goto 0
.
.
.
.
mi_error:
if err then
msgbox \\\"No hay conexion de red\\\"
end if