Option Explicit
'Main Function
Function NOMBRE_MES(ByVal MyNumber)
Dim mes
' String representation of amount.
MyNumber = Trim(Str(MyNumber))
Select Case MyNumber
Case "1"
mes = "ENERO"
Case "2"
mes = "FEBRERO"
Case "3"
mes = "MARZO"
Case "4"
mes = "ABRIL"
Case "5"
mes = "MAYO"
Case "6"
mes = "JUNIO"
Case "7"
mes = "JULIO"
Case "8"
mes = "AGOSTO"
Case "9"
mes = "SEPTIEMBRE"
Case "10"
mes = "OCTUBRE"
Case "11"
mes = "NOVIEMBRE"
Case "12"
mes = "DICIEMBRE"
Case Else
mes = " "
End Select
NOMBRE_MES = mes
End Function
