Abrir unidad de CD

Buenas tardes a todos,

con el siguiente código logro abrir o cerrar la unidad de
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 Long
__________________________________________________________
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