Calling the CD-Rom

Answer:
You can use the FileSystemObject (Microsoft Scripting Runtime in the references dialog). Iterate through the Drives collection of the FileSystemObject and check its DriveType property and DriveLetter property. DriveType 4 is the CD ROM.

Set a reference to the Microsoft Scripting Runtime and try this code.

Dim objFso As New FileSystemObject
Dim objDrive As Drive
For Each objDrive In objFso.Drives
    With objDrive
        If .DriveType = CDRom Then
            MsgBox "CD ROM is " & .DriveLetter
        End If
    End With
Next objDrive