Bom dia!

Prezados, pesquisei e acabei não encontrando nenhum tópico acerca do assunto. Portanto resolvi criar este post.
Elaborei uma função em vba para retornar o mês por extenso de uma referência e gostaria de compartilhar com vocês.
Segue abaixo o código:

Public Function TextMes(ByVal DATA As Date)
        Select Case (Month(DATA))
            Case 1
                TextMes = "JANEIRO"
            Case 2
                TextMes = "FEVEREIRO"
            Case 3
                TextMes = "MARÇO"
            Case 4
                TextMes = "ABRIL"
            Case 5
                TextMes = "MAIO"
            Case 6
                TextMes = "JUNHO"
            Case 7
                TextMes = "JULHO"
            Case 8
                TextMes = "AGOSTO"
            Case 9
                TextMes = "SETEMBRO"
            Case 10
                TextMes = "OUTUBRO"
            Case 11
                TextMes = "NOVEMBRO"
            Case 12
                TextMes = "DEZEMBRO"
        End Select
End Function

Ficarei muito grato caso hajam sugestões de melhoria!