How to use cell value to call a constant?

[schokker_ron]

I have declared the constants below.

Const TNTFuelAdd = 0.1
Const UPSFuelAdd = 0.16
Const RHENUSFuelAdd = 0.15


I also have the Variable ‘Transporter’. In a case the ‘Transporter’ variable has the value “TNT”.

Now, I want to get the value of the constant TNTFuelAdd.
I tried something like FuelAddValue = (Transporter & “FuelAdd”), but that fails.

How do I do thing?
Thanks in advance for the help.

 

[theBardd]

That won't work, but you could use a dictionary

Dim dict As Object

    
    Set dict = CreateObject("Scripting.Dictionary")
    
    dict.Add "TNTFuelAdd", 0.1
    dict.Add "UPSFuelAdd", 0.16
    dict.Add "RHENUSFuelAdd", 0.15
    Debug.Print dict.Item(Transporter & "FuelAdd")