Как в программе узнать имя (букву) под которой CD-ROM в компьютере? - VB

Private Declare Function GetLogicalDrives Lib 'kernel32' () As Long
Private Declare Function GetDriveType Lib 'kernel32' Alias 'GetDriveTypeA' (ByVal nDrive As String) As Long
 
Function DD()
Dim ndrv As Long, i As Long, typ As Long
Dim strPath As String
 
ndrv = GetLogicalDrives()
For i = 0 To 25
 If ndrv And 1 Then
   strPath = Chr$(65 + i) & ': '
   Debug.Print strPath,
   typ = GetDriveType(strPath & Chr$(0))
   Select Case typ
      Case 0
         Debug.Print 'Неизвестный тип'
      Case 1
         Debug.Print 'Неподходящий тип'
      Case 2
         Debug.Print 'Дискета'
      Case 3
         Debug.Print 'Жесткий диск'
      Case 4
         Debug.Print 'Сетевой диск'
      Case 5
         Debug.Print 'CD-ROM'
      Case 6
         Debug.Print 'RAM-диск'
   End Select
 End If
 ndrv = ndrv  2
Next i
End Function