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

[CHOSS]

Puedes Intentar asi

Código:

Public Function conv(ByVal value As Short) As String

Select Case value
Case 1 : Return  "ENERO"
Case 2 : Return  "FEBRERO"
Case 3 : Return  "MARZO"
Case 4 : Return  "ABRIL"
Case 5 : Return  "MAYO"
Case 6 : Return  "JUNIO"
Case 7 : Return  "JULIO"
Case 8 : Return  "AGOSTO"
Case 9 : Return  "SEPTIEMBRE"
Case 10 : Return  "OCTUBRE"
Case 11 : Return  "NOVIEMBRE"
Case 12 : Return  "DICIEMBRE"
case Else
Return "Opcion no valida. . ."
End Select
End Function

[Aquaventus]

ya te dieron la respuesta compañero!. Saludos!

[edbc92]

Gracias por el dato. También encontré otra forma de validar mi error, era solo poner antes del (select case value) (arriba) establecia asi: conv="", y luego todo es normal. Pero también me fue útil tu ayuda, gracias.