Public Function - VB

Формулировка задачи:

Добрый день.
И снова я с нубским вопросом)))
Задача такова, чтобы при введении например NumMonth(4) = апрель-май

? NumMonth()
апрель-май

так же, чтобы она была именно Public, ибо не раз потребуется пользоваться в макросах.
Ниже одна из моих попыток:

NumMonth(i  )  Variant

NumMonth() = 
NumMonth() = 
NumMonth() = 
NumMonth() = 
NumMonth() = 
NumMonth() = 
NumMonth() = 
NumMonth() = 
NumMonth() = 
NumMonth() = 
NumMonth() = 
NumMonth() = 

как видно это не работает, да еще и Excel от нее зависает.
Спасибо.

Решение задачи: «Public Function»

textual
                            Листинг программы 
                        

                            <font color="blue">Public</font> <font color="blue">Function</font> NumMonth(i <font color="blue">As</font> <font color="blue">Integer</font>) <font color="blue">As</font> <font color="blue">String</font>

NumMonth = <font color="teal">""</font>
<font color="blue">If</font> i >= <font color="darkblue"><b>1</b></font> <font color="blue">And</font> i <= <font color="darkblue"><b>12</b></font> <font color="blue">Then</font>
  NumMonth = LCase(Format$(DateSerial(<font color="darkblue"><b>1900</b></font>, i, <font color="darkblue"><b>1</b></font>), <font color="teal">"mmmm"</font>) + <font color="teal">"-"</font> + _
           Format$(DateSerial(<font color="darkblue"><b>1900</b></font>, i + <font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>1</b></font>), <font color="teal">"mmmm"</font>))
<font color="blue">End</font> <font color="blue">If</font>

<font color="blue">End</font> <font color="blue">Function</font>

                        