Storing variable in Option.Tag

Hi,

Is there way to store a constant variable in Tag, so that I could used it?
e.g.
Sheet9.Range("A2").Value = OptionGroup.Tag

where
OptionGroup.Tag="byt3"

where
const byt3 as Byte = 3

???

Thanks