Visual Basic - Drivelistbox..??

Tengo una duda sobre este control,hay alguna manera de saber si la unidad k ha seleccionado es del tipo diskete o cd cuando la cambie?

El código q te pongo aquí, te dá todas las unidades que tienes en el PC

Dim d, dc, s, n
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
For Each d In dc
s = s & d.DriveLetter & " - "
Select Case d.DriveType
Case 0: n = "Desconocido"
Case 1: n = "Separable" ' Unididad de discos
Case 2: n = "Fijo" ' HD
Case 3: n = "Red"
Case 4: n = "CD-ROM"
Case 5: n = "Disco RAM"
End Select
s = s & n & vbCrLf
Next
MsgBox s

Espero haberte ayudado.

Muchas Gracias tio!! me ha sevido para lo que queria,evitar instalaciones en unidades extraibles..