Manual modification of part number, Item Number 3-1

But use code don't  modification Item Number

Private Sub ll1()

   Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2

      Set SwApp = Application.SldWorks

      Set SwModel = SwApp.ActiveDoc

   Dim SwSelMgr As SelectionMgr, Str

      Set SwSelMgr = SwModel.SelectionManager

   Dim SwNote As Note

      Set SwNote = SwSelMgr.GetSelectedObject5(1)

      Debug.Print SwNote.GetName, SwNote.GetText

      'SwModel.EditBalloonProperties swBS_Underline, swBF_Tightest, swDetailingNoteTextCustom, "3-" & SwNote.GetText, swDetailingNoteTextItemNumber, "1"

      Str = "3-" & SwNote.GetText

      'SwModel.EditBalloonProperties swBS_Underline, swBF_Tightest, 0, Str, swDetailingNoteTextItemNumber, "1"

      SwModel.EditBalloonProperties swBS_FlagTriangle, swBF_Tightest, swDetailingNoteTextQuantity, Str, swDetailingNoteTextItemNumber, "1"

      SwModel.EditBalloonProperties swBS_Underline, swBF_Tightest, swDetailingNoteTextItemNumber, "", swDetailingNoteTextItemNumber, "1"

     'SwModel.EditBalloonProperties 10, 0, 0, "3-2", 2, "1"

End Sub