Reference the value of a constant

[GraeagleBill]

In the following code,

Private Function ShowHELP(ID As Long)


helpname = "Help" & ID
MsgBox Eval(helpname)


End Function

I'm wanting to access the value of a constant. "helpname" is dim'd string and the name of the constant is set in helpname. Using Eval just gives me a runtime error 2482:



Is it even possible?

[Welshgasman]

What is the constant called?

[GraeagleBill]

In the current instance, when the error occurs, I'm wanting to Msgbox the string value of the constant HELP6.

[Welshgasman]

I do not think you can, as it is two levels removed?

I have managed this

Looking at https://learn.microsoft.com/en-us/of...plication.eval

[GraeagleBill]

I thought that might be the case. I can simply solve the issue by loading the desired strings into an array and use the ID of the desired string to load it from the array.
Thanks though for your thoughts.
Bill

[Welshgasman]

If you want to find the value of a particular constant, then I think you would need a Select Case statement?
After all you already know what the value of the constant is, as it cannot be changed.

[Welshgasman]

I thought that might be the case. I can simply solve the issue by loading the desired strings into an array and use the ID of the desired string to load it from the array.
Thanks though for your thoughts.
Bill

That would be a much better way.