Option Explicit
 
Private Sub Form_Load()
    Dim fso As New FileSystemObject
    Dim d As Drive
 
    For Each d In fso.Drives
        If d.DriveType = CDRom Then
            List1.AddItem d.DriveLetter
        End If
    Next d
 
    Set d = Nothing
    Set fso = Nothing
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1