Private 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

Public Sub Open_CD_Tray()
    Call mciSendString("Set CDAudio Door Open", 0&, 0&, 0&)
End Sub

Public Sub Close_CD_Tray()
    Call mciSendString("Set CDAudio Door Closed", 0&, 0&, 0&)
End Sub