option Explicit
dim oExcel, oWB
dim sConstantName, iConstantValue

' сюда пишем имя констаны, значение которой хотим узнать
sConstantName = "xlAll"

set oExcel = CreateObject("Excel.Application")
if oExcel is nothing then
	MsgBox "Where is my Excel?"
end if

set oWB = oExcel.Workbooks.Add

oWB.VBProject.VBComponents( 1 ).CodeModule.AddFromString("function ConstantValue() as Integer"+chr( 13 ) + _
			"ConstantValue = "+ sConstantName + chr( 13 ) + _
			"end function")

iConstantValue = oWB.ConstantValue()
MsgBox cstr(iConstantValue)

oWB.Close false
oExcel.Quit