Visual Basic - Problema con un drivelistbox

Tengo un problema con un drivelistbox, si selecciono la unidad del cd y no hay ninguno insertado me da un error y me para el programa, como puedo filtrar ese error y en vez de mostrar un error de sistema poder mostrar yo uno y asi no parar el programa. Gracias anticipadas

Tienes que controlar el error, mira si te sirve algo asi:

Private Sub Drive1_Change()

On Error GoTo ErrorDeUnidad
'controla error de unidad cuando no hay cd o diskette
Dir1.Path = Drive1.Drive
'Actualiza la lista de directorios cuando cambiamos
'la unidad de disco duro o diskette
Exit Sub
ErrorDeUnidad:
MsgBox "No hay disco en la unidad seleccionada\"
Drive1.Drive = "c:\" 'vuelve el direcctorio por defecto
Exit Sub

End Sub

mas o menos es algo así, espero que te sirva.

saludos.