function colorToHex(thisColor)
select case UCase(thisColor)
case "WHITE"
colorToHex="#FFFFFF"
case "BLACK"
colorToHex="#000000"
end select
end function
That will work...if you fill in all the colors you want to support (yeah...no small task, that's why I didn't do it). Add it to your equivalent of inc_functions and you should be able to use it anywhere.
Maybe not the most elegant way to do this...but it would work.
-Dan