VBA: How to pass an integer to a constant value?

Question

I must use a constant in a main module as below:

        Const NUM_DATA_COLS As Long = 31

I want to derive (31) as a variable from the below