format date [VBA]

option explicit 

sub format_date()

  dim now_ as date

  now_ = now()

' msgBox(now_)

  dim fmt as string

  fmt = "\d d "

  fmt = fmt & "\d\d dd "
  fmt = fmt & "\d\d\d ddd "
  fmt = fmt & "\d\d\d\d dddd "
  fmt = fmt & "\M M "
  fmt = fmt & "\M\M MM "
  fmt = fmt & "\M\M\M MMM "
  fmt = fmt & "\M\M\M\M MMMM "
  fmt = fmt & "\g\g gg "
  fmt = fmt & "\h h "
  fmt = fmt & "\h\h hh "
  fmt = fmt & "\H H "
  fmt = fmt & "\H\H HH "
  fmt = fmt & "\m m "
  fmt = fmt & "\m\m mm "
  fmt = fmt & "\s "
  fmt = fmt & "\s\s ss "
  fmt = fmt & "\f f "
  fmt = fmt & "\t t "
  fmt = fmt & "\t\t tt "
  fmt = fmt & "\y y "
  fmt = fmt & "\y\y yy "
  fmt = fmt & "\y\y\y yyy "
  fmt = fmt & "\y\y\y\y yyyy "
  fmt = fmt & "\z z "
  fmt = fmt & "\z\z zz "
  fmt = fmt & "\z\z\z zzz " 

  msgBox(format(now_, fmt))

end sub