Eject cd drev

Hej. Jeg bruger følgende kode for at ejecte en cd:

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

Call mciSendString(\"Set CDAudio Door Open Wait\", 0&, 0&, 0&)

Dette virker også fint, men det kan kun ejecte standard system cd-rom drever såvidt jeg kan finde ud af? Men jeg vil gerne selv kunne vælge hvilket drev den skal ejecte. Jeg lader brugeren vælge, og kender derved drev bogstavet, kan denne kode modificeres til at ejecte et andet drev, med andet bogstav?

Mvh Mark