Il tipo testo per le date non e' la cosa migliore soprattutto se nel formato dd/mm/aaaa.

Comunque, se nel campo c'e' scritto 08 invece di 8, allora dovrai indicare

Format(Month(CDate("1/" & Mese.Text)), "00")