ตัวอย่าง ฟังก์ชั่นที่สร้าง คือ 

function_plus

Option Explicit

Function function_plus(ByRef A As Integer, ByRef B As Integer) As Integer

        function_plus = A + B

End Function

'----------------------------------------------------------------------------------------

'

Sub RegisterUDF()

    Dim des As String

des = "This function is used for test tools tip help " & vbLf _

    & "function_plus =A + B | A is number,B is number)"

    Application.MacroOptions Macro:="function_plus", Description:=des, Category:=9

End Sub

'------------------------------------------------------------------------------------------

'

Sub UnregisterUDF()

    Application.MacroOptions Macro:="function_plus", Description:=Empty, Category:=Empty

End Sub