FoxPro/Visual FoxPro - Mis amigos colegas como siempre yo molestandoles

hola, a todos y de antemanos agradezco su apoyo.
He tenido un inconveniente, con una aplicacion, la cual trabaja con word and excel.

1 Tengo una aplicacion que necesita de internet, me gustaria saber cuando se cae el internet o no hay internet en ese momento. es via conexion ASDL.
ya que cuando se ejecutan ciertas funciones y no hay internet. manda error, y eso para los usuarios es un problema del sistema claro por validacion, pero no propio ya que es de internet. quiero enviar un mensaje que diga no hay internet en este momento.
Gracias.

2 Cuando facturan en ciertas maquinas, y el propietario me ordeno desintalar todo los programas excel word.
hay un boton para activar esto.

MIEXCEL = CREATEOBJECT("EXCEL.APPLICATION")
RESP = IIF(TYPE("MIEXCEL")="O"," ","Microsoft excel no esta Instalado")
if !empty(resp)
=messagebox(resp,0+16,"Alerta")
endif

PERO ENVIA UN ERROR EN ESTA MAQUINAS YA QUE LA LINEA QUE ESTA MALA ES
LA PRIMERA YA QUE NUNCA SE VA A CREAR EL OBJETO SI NO ESTA INSTALADO WORD.

COMO HACER PARA QUE ME ENVIE
=messagebox("No esta instalado m. excel"0+16,"Alerta")
en ves de el error
he visto algo con tray catch. pero no se usarlo a ver si me ayudan.

2 tiene algun ejemplito de tray catch sencillo me lo pueden enviar.

GRACIAS.

DOUGLAS

1. esto lo reemplazas en cada funcion que conecte a internet (proba con una)
v_conec = prg_internet()
if v_conec = 1
ejecutas tus funciones
else
messagebox("Aparentemente no hay conexion",16,"")
endif

function prg_internet
parameter conectada
DECLARE SHORT InternetGetConnectedState IN wininet;
INTEGER @ lpdwFlags,;
INTEGER dwReserved
conectada= InternetGetConnectedState (1,0)
return conectada

2. creo que controlando el error 1733 (No se encuentra la definición de clase "nombre") en tu rutina de errores no deberías tener problemas