SoloCodigo

Por ejemplo yo tengo dos botones: que son Command1 Y Command2 entonces yo quiero que Command1 me abra la bendeja del CDRun, pero no el que leer quiero que me abra el de la grabadora o quemadora como le quieran decir, y por supuesto el Command2 que cierre la bandeja este es el codigo que estoy utilizando pero ese funciona solo para la unidad lectora
 
-----------------------------------------------------------------------------------------------------------
Private Sub Command13_Click()
mciSendString "set CDAudio door open", vbNullString, 0, 0
End Sub
-----------------------------------------------------------------------------------------------------------
 
Quiero saber en que estoy fallando, para que me pueda abrir la bandeja de mi quemadora