Функция выглядит так:

Private Function ИмяФункции(Параметр1, Параметр 2)

If Параметр1>Параметр2 Then

ИмяФункции="Параметр1 > Параметр2!" ' Возвращаемое значение

Exit Function

End If

End Function