Ciao..una funzione specifica per quello che hai chiesto non esiste, cmq potresti sempre fare ciò tramite un select case:

codice:
Private Sub Form_Load()

MsgBox Mese(2)

End Sub

Public Function Mese(ByVal Numero As Byte) As String

Select Case Numero

    Case Is = 1
    Mese = "Gennaio"
    
    Case Is = 2
    Mese = "Febbraio"

    Case Is = 3
    Mese = "Marzo"

    Case Is = 4
    Mese = "Aprile"

    'ecc..
    
    Case Else
    MsgBox "Il numero inserito non è valido", vbCritical, "Errore"
    
End Select

End Function
Cmq tanto per darti una idea di come procedere..

Ciao