Abrir unidad de CD

... logro abrir o cerrar la unidad de CD mediante macros
... me esta saliendo un error que hace que se cierre excel (tengo office 2003 y win XP).
Como puedo evitar esto? cual es la falla?:

Buenas tardes a todos,

con el siguiente código logro abrir o cerrar la unidad

CD mediante macros, pero me está saliendo un error que
hace que se cierre excel (tengo office 2003 y win XP).
Cómo puedo evitar esto? cuál es la falla?:
_________________________________________________________

Option Explicit
Declare Function mciSendString Lib "winmm.dll"
Alias "mciSendStringA" (ByVal lpstrCommand As String,
ByVal _
lpstrReturnString As String, ByVal
uReturnLength As Long, ByVal hwndCallback As Long) As

_________________________________________________________

Private Sub AbrirUnidad()
' Abrir bandeja CD-Rom
mciSendString "set CDAudio door open", "", 127, 0
End Sub
_________________________________________________________

Private Sub CerrarUnidad()
' Cerrar bandeja CD-Rom
mciSendString "set CDAudio door closed", "", 127, 0
End Sub

Gracias por la colaboración.

Saludos,

Jorge M
.

hola, Jorge !

... logro abrir o cerrar la unidad de CD mediante

... me esta saliendo un error que hace que se cierre

Como puedo evitar esto? cual es la falla?:

prueba con unas 'ligeras' modificadioes [en el llamado

o... mciSendString "Set CDAudio Door Open Wait", 0&,

o... mciSendString "Set CDAudio Door Open", 0&, 0, 0
[similares para el 'door closed']

-> en cuanto a 'porque falla'...
si 'comentas' cual es el error que se

saludos,
hector.
.