Get Arbitrary Note Values inside a Custom Symbol

Hi all,

I am trying with a code below to extract arbitrary note values inside a custom symbol but not successful. Can any one help me in getting this.

Below is the sample file containing custom symbol for testing purpose.
https://goo.gl/ZU7y8O

Option Strict Off
Imports System
Imports NXOpen

Module NXJournal
Sub Main (ByVal args() As String)

Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
Dim workPart As NXOpen.Part = theSession.Parts.Work
Dim displayPart As NXOpen.Part = theSession.Parts.Display
Dim theUI As UI = UI.GetUI()
Dim draftingCustomSymbolBuilder1 As NXOpen.Annotations.DraftingCustomSymbolBuilder
draftingCustomSymbolBuilder1 = workPart.Annotations.CustomSymbols.CreateDraftingCustomSymbolBuilder(CType(theUI.SelectionManager.GetSelectedObject(0), NXOpen.Annotations.CustomSymbol))
draftingCustomSymbolBuilder1.SelectText(0)
Dim arbitrarynotetitle1() As String
arbitrarynotetitle1 = draftingCustomSymbolBuilder1.GetArbitraryNoteTitle()
theSession.listingwindow.open()
theSession.listingwindow.writeline(arbitrarynotetitle1(0))

Dim nXObject1 As NXOpen.NXObject
nXObject1 = draftingCustomSymbolBuilder1.Commit()
draftingCustomSymbolBuilder1.Destroy()

End Sub
End Module