Bueno lo puedes hacer de esta manera.
Código:
Dim mesanumero as Integer= Now.Month() ' de 1 a 12
Dim Mesenletra1 as String = Now.ToString("MMM") 'Teda el las primeras 3 letras del mes Ene, Feb, Mar
Dim Mesenletra2 as String = Now.ToString("MMMM") 'El nombre entero de los meses Enero, Febrero, Marzo, etc.
Espero que te sea de utilidad
