gb.ShortDate (gb)

Const ShortDate As Integer = 12 ' &HC