Option Explicit

Dim DriveLetter
DriveLetter = GetCdromDriveLetter

If Len(DriveLetter) > 0 Then
	MsgBox "CDROM-диск находится на букве '" & DriveLetter & "'."
Else
	MsgBox "CDROM-диск не обнаружен."
End If

Function GetCdromDriveLetter()
	GetCdromDriveLetter = ""

	Dim FSO
	Set FSO = CreateObject("Scripting.FileSystemObject")
	
	Dim Drive
	For Each Drive In FSO.Drives
		If Drive.DriveType = 4 Then
			GetCdromDriveLetter = Drive.DriveLetter
			Exit For
		End If
	Next
	
	Set FSO = Nothing
End Function