This can be done by using the mciSendString API function, which I have for ease of use renamed to MCI, but to open or close the CD-ROM door use the following function:

"mciSendStringA" (ByVal lpstrCommand As String, _

ByVal lpstrReturnString As Any, ByVal uReturnLength _

As Long, ByVal hwndCallback As Long) As Long

Public Enum eState

lOpen = 1

lClosed = 2

End Enum

Public Function CDDoor(lState As eState) As Long

Dim sState As String

If lState = lClosed Then sState = "Closed" Else sState = "Open"

CDDoor = MCI("Set CDAudio Door " & sState, "", 0, 0)

Call by using

If 0 is returned then the drive is now shut or open depending on what