Private Function BI_GetCDROMDrive() As String
  Dim lType As Long
  Dim i As Integer
  Dim tmpDrive As String
  Dim found As Boolean
 
  On Error GoTo ErrorHandler
 
  'Schleife von A - Z
  For i = 0 To 25
     tmpDrive = Chr(65 + i) & ":\"
 
     'Win32 API Funktion
     lType = GetDriveType(tmpDrive)
 
     'Win32 API Konstante
     If (lType = DRIVE_CDROM) Then
        found = True
        List1.AddItem tmpDrive
      End If
  Next
 
  If Not found Then
     tmpDrive = ""
     List1.AddItem "Kein CD-ROM vorhanden"
  End If
 
  BI_GetCDROMDrive = tmpDrive
  Exit Function
 
ErrorHandler:
  Err.Description = "Es ist ein unerwarteter Fehler aufgetreten."
  MsgBox Err.Description
 
End Function