With SwPt Debug.Print .X, .Y, .Z, "Point" & .GetID(1) End With
It's better to avoid point names for selections, if selection is the only requirement for which you are looking for the sketch point name, you have a hot cake in hand, that is the sketch point object. You can select using Sketch Point Object.
Private Sub ll() '
Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
Set SwApp = Application.SldWorks
Set SwModel = SwApp.ActiveDoc
Dim SwSelMgr As SelectionMgr
Set SwSelMgr = SwModel.SelectionManager
Dim SwPt As SketchPoint
Set SwPt = SwSelMgr.GetSelectedObject5(1)