Try this. It will place the note in the bottom right corner of the sheet:
Const PRP_NAME As String = "Total bounding Box Length"
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Dim swNote As SldWorks.Note
Set swNote = swModel.InsertNote("Length = $PRPSHEET:" & """" & PRP_NAME & """")
swNote.GetAnnotation().SetPosition 0, 0, 0
Thank you for telling me the sample code!
I did it!
I did not know that I could substitute relational expressions for the note!
Thank you so much!!