HOW TO FIND A TEXT IN A DRAWING USING MACRO. I FOUND THE EXAMPLE IN API BUT IT IS NOT WORKING

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim longstatus As Long

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

' Find and replace annotations

Set swUtil = swApp.GetAddInObject("Utilities.UtilitiesApp")

Set swUtilFindReplaceAnnotations = swUtil.FindReplaceAnnotations

longstatus = swUtilFindReplaceAnnotations.InitPMPage()

swUtilFindReplaceAnnotations.FindText = "abc"

swUtilFindReplaceAnnotations.ReplaceText = "def"

swUtilFindReplaceAnnotations.options = gtFraWholeWord

swUtilFindReplaceAnnotations.AnnotationFilter = gtFraNote

longstatus = swUtilFindReplaceAnnotations.FindNext()

longstatus = swUtilFindReplaceAnnotations.Replace()

longstatus = swUtilFindReplaceAnnotations.Close()

End Sub

COULD SOMEONE HELP ME IN THIS REGARD BY MODIFYING THE ATTACHED MACRO.