Comprueba que el otro ordenador tenga el control mscomctl.ocx registrado, sino no funcionará.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
On Error GoTo Fallo
Dim RutaSistema As String
RutaSistema = Environ("WINDIR") & "\System32"
If GetAttr(RutaSistema & "\ARCHIVO.exe") Then MsgBox "SI"
Fallo:
MsgBox "NO"