Anti-FAQ: Jak odczytać na którym dysku jest zainstalowany CD-ROM?
Poniżej cytuję tekst Mirka (dcn02@it.com.pl):

Trochę okrężna droga ale zawsze ... To jest funkcja api która sprawdza typ dysku o podanej literce - wklej do modułu i odpluskaj a zobaczysz jak działa: 
Public Declare Function GetDriveType Lib "kernel32" _
Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Public Function Typ_Dysku()
Dim Nazwa As String
    Nazwa = InputBox("Podaj literę dysku", "typ dysku", "C:\")
    Typ_Dysku = GetDriveType(Nazwa)
    Select Case Typ_Dysku
        Case 2
            Typ_Dysku = "Napęd dyskietek lub inny dysk wymienny"
        Case 3
            Typ_Dysku = "Dysk stały(twardy)"
        Case 4
            Typ_Dysku = "Napęd sieciowy lub umieszczony na serwerze sieciowym"
        Case 5
            Typ_Dysku = "Napęd CD - ROM"
        Case 6
            Typ_Dysku = "Ramdysk"
    End Select
    MsgBox Typ_Dysku
End Function
moim zdaniem jest jakaś funkcja która sama podaje literę CD (ale ja jej nie znam ) pozdrowienia Mirek

Uzupełnienie:

Na podstawie metody przedstawionej przez Mirka dodałem przykładową funkcję, która zwraca tę literę CD:

Public Function CDROM()
'funkcja zwraca literę pierwszego CD-ROMu w systemie
On Error Resume Next
Dim DriveNum As Long, DriveLeter As String, DriveType As Long
    Dim FirstDrive As Long, Results As Long
    Const NapedCD = 5
    DriveNum = 0
    Do
       DriveNum = DriveNum + 1
       DriveLeter = Chr$(DriveNum + 64) + ":\"	
       'testuje kolejne możliwe napędy
       DriveType = GetDriveType(DriveLeter)
       If Err > 0 Then
           DriveLeter = "-"    'brak CD-ROMu
           Exit Do
       End If
    Loop Until DriveType = NapedCD
    CDROM = Left(DriveLeter, 2)
End Function