Esta é uma função que recebe o mês e retorna o mês por extenso.
Passando o mês como parâmetro e a função retorna o mês por extenso.
 

Public Function Mes(intMes As Integer) As String

    Select Case intMes
        Case 1
            Mes = “Janeiro”
        Case 2
            Mes = “Fevereiro”
        Case 3
            Mes = “Março”
        Case 4
            Mes = “Abril”
        Case 5
            Mes = “Maio”
        Case 6
            Mes = “Junho”
        Case 7
            Mes = “Julho”
        Case 8
            Mes = “Agosto”
        Case 9            
            Mes = “Setembro”
        Case 10
            Mes = “Outubro”
        Case 11
            Mes = “Novembro”
        Case 12
           Mes = “Dezembro”
     End Select

End Function