CD-Laufwerk öffnen oder schließen

Kann man mit VBA das CD-Laufwerk öffnen bzw. schließen ?
 
Private Declare Function mciExecute Lib "winmm.dll" _
  (ByVal lpstrCommand As String) As Long

Public Sub Öffnen()
   mciExecute "Set CDaudio door open"
End Sub

Public Sub Schliessen()
   mciExecute "Set CDaudio door closed"
End Sub