NX modeling de point coordinates excel export

I recently put this together for a similar task i.e. transferring point information to excel. After selecting the points in order information can be copied to excel. PS: I am not an expert in this, I just do trial and error with existing journals.

Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UF

Module PointsInformation

' Explicit Activation
' This entry point is used to activate the application explicitly
Sub Main()

Dim theSession As Session = Session.GetSession()
Dim ufs As UFSession = UFSession.GetUFSession()
Dim response2 As Selection.Response = Nothing
Dim pnt2() As Double = {0.0, 0.0, 0.0}
Dim selectedObjects() As NXObject

theSession.ListingWindow.Open

Start1:
Start2:
response2 = select_a_Point(selectedObjects)
If response2 = Selection.Response.Back Then GoTo Start1 ' Select a new face
If response2 = Selection.Response.Cancel Then GoTo End1

Dim info As String = "Number of selected objects = "
info = String.Concat(info, selectedObjects.Length)
theSession.ListingWindow.WriteLine(info)

Dim sda As Point
For Each sda In selectedObjects
ufs.Curve.AskPointData(sda.Tag, pnt2)
theSession.ListingWindow.WriteLine( pnt2(0).ToString("N3")& ";" & pnt2(1).ToString("N3")& ";" & pnt2(2).ToString("N3"))
Next

GoTo Start2 ' Continue selecting points for current face

End1:
End Sub

Public Function GetUnloadOption(ByVal dummy As String) As Integer

'Unloads the image immediately after execution within NX
GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

'----Other unload options-------
'Unloads the image when the NX session terminates
'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

'Unloads the image explicitly, via an unload dialog
'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
'-------------------------------

End Function

Function select_a_Point(ByRef selectedObjects As NXObject())
Dim ui As UI = ui.GetUI()
Dim mask(0) As Selection.MaskTriple
With mask(0)
.Type = UFConstants.UF_point_type
.Subtype = UFConstants.UF_point_subtype
.SolidBodySubtype = 0
End With

Try

Dim resp As Selection.Response = _
ui.SelectionManager.SelectObjects("Select Points", "Select Points", _
Selection.SelectionScope.AnyInAssembly, _
Selection.SelectionAction.ClearAndEnableSpecific, _
False, False, mask, selectedObjects)

If resp = Selection.Response.Cancel Or _
resp = Selection.Response.Back Then
Return Selection.Response.Cancel
Else
Dim info As String = "Number of selected objects = "
info = String.Concat(info, selectedObjects.Length)
System.Diagnostics.Trace.WriteLine(info)
Return Selection.Response.Ok
End If

Catch e As Exception
System.Diagnostics.Trace.WriteLine("Problems selecting objects.")
System.Diagnostics.Trace.WriteLine(e.ToString)
End Try
End Function

End Module