Visual Basic - Comprobar la existencia de un cd

Alguien sabe como comprovar que tengo un cd puesto en la unidad de cdrom, lo que pasa es que tengo una base de datos que contiene la direccion de unos videos que esta almacenados en cd, la idea es que cuando hago una consulta por un video y si es encontrado, se ejcuta el windows media player, pero si el cd no se encuantra o la bandeja del cd eta abierta, la aplicacion se cae, como puedo validar entonces que el cd se encuanta en la bandeja?

Public Function UnidadLista(Unidad As String) As Variant
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
On Error GoTo ControlErrores
UnidadLista = fs.GetDrive(Unidad).IsReady
Exit Function
ControlErrores:
UnidadLista = Err.Number
End Function
------------------------------------------------------------
Usalo asi:

Dim a
a = UnidadLista ("D")

--------------
Si hay un CD dentro, da True, sino da False, si hay algun error pues te sale el numero de error.

Con eso sabras si hay un CD en la bandeja.

Espero que te sirva. si hay algun problema, ya sabes.

Saludos.

Eso sirve para saber si puedes escribir en la unidad que pongas.

Hola mandame un correo que te mando un programita que hice yo para detectar si la bandeja de cd tiene un cd, y ademas te genera un listado con los archivos