ACCESS - FUNCION devuelve numero por mes , error con RETURN

[Pikamo]

Código:

Private Function Num_Meses(mes As String) As Integer
   Dim numero_mes As Integer
    Select Case mes
    Case "Enero"
        numero_mes = 1
    Case "Febrero"
        numero_mes = 2
    Case "Marzo"
        numero_mes = 3
    Case "Abril"
        numero_mes = 4
    Case "Mayo"
        numero_mes = 5
    Case "Junio"
        numero_mes = 6
    Case "Julio"
        numero_mes = 7
    Case "Agosto"
        numero_mes = 8
    Case "Septiembre"
        numero_mes = 9
    Case "Octubre"
        numero_mes = 10
    Case "Noviembre"
        numero_mes = 11
    Case "Diciembre"
        numero_mes = 12
    Case Else
        numero_mes = False
    End Select
        Return numero_mes
    ' Dim n As String
    ' n = CStr(numero_mes)
    ' MsgBox ("el mes es : " & mes & " : " & numero_mes)
End Function

bueno ... el error me da en la linea que pone Return numero_mes .. me salta este error :
Se esperaba: fin de la instrucción

me estoy quedando a cuadros con esto , no se donde coño esta el error , estoy utilizando visual basic 6.3 please responder..