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