son giuste queste righette x ottenere come risultato 1 x gennaio, 2 x febbraio e così via?

codice:
 Dim data As Date
 Dim mese As Integer
 data =  New Date()
 mese = data.getMonth()