Visual Basic - Necesito su ayuda con este codigo

Private Sub Command1_Click()
List1.Clear
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

Select Case n
Case "Separable"
If d = "A:" Then
List1.AddItem "(" & d & ")" & " Disquete"
Else
List1.AddItem "(" & d & ")" & " Extraible"
End If
Case "Fijo"
List1.AddItem "(" & d & ")" & " Disco Duro"
Case "CD-ROM"
List1.AddItem "(" & d & ")" & " CD-ROM/DVD"
Case "Red"
List1.AddItem "(" & d & ")" & " Red"

End Select

Next

End Sub

Utilizo este codigo para cargar las unidades en un listbox, pero no encuentro como hacerle para saber si es unidad de CD-ROM , CDR , DVD , o DVDR, ¿De que manera puedo saberlo?

Ayudenme. Gracias.

Pues utiliza mejor el control DriveListBox.