Visual Basic - Encontrar la unidad de Cd room automaticamente

Cuando creas un vinculo con alguna aplicación ajena a visual y deseas jalar los archivos desde el cdroom, como le haces para que independientemente de la unidad que este asignada siempre te encuentre el cdroom, porque cuando los discos estan particionados no puede encontrar el archivo ya que se le asigna otra letra al cdroom

Amigo:
Escribe el siguiente código :

Dim fs, d, s, t, dc
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
For Each d In dc
Select Case d.DriveType
Case 0: t = "Desconocido"
Case 1: t = "Separable"
Case 2: t = "Fijo"
Case 3: t = "Red"
Case 4: t = "CD-ROM"
Case 5: t = "Disco RAM"
End Select
s = "Unidad " & d.DriveLetter & ": - " & t
MsgBox s
Next

Si te das cuenta, con la propiedad DriveType puedes obtener el tipo de unidad (valor 4 para CD-ROM)