Problema con funciones

[edbc92]

Qué tal?

He creado una función diciendo que dependiendo del numero ingresado me represente el mes. Ejem: si ingreso 1, que me devuelva "ENERO". Sé como hacerlo, pero al plantearlo en el módulo, no sé porque al decir "return conv" esta mal planteado el código. No sé como poner como otros ponen la imagen de visual basic pero ahi va:

Module Module1
Public Function conv(ByVal value As Short) As String

Select Case value
Case 1 : conv = "ENERO"
Case 2 : conv = "FEBRERO"
Case 3 : conv = "MARZO"
Case 4 : conv = "ABRIL"
Case 5 : conv = "MAYO"
Case 6 : conv = "JUNIO"
Case 7 : conv = "JULIO"
Case 8 : conv = "AGOSTO"
Case 9 : conv = "SEPTIEMBRE"
Case 10 : conv = "OCTUBRE"
Case 11 : conv = "NOVIEMBRE"
Case 12 : conv = "DICIEMBRE"

End Select
Return conv
End Function
End Module