Sorry for rush.
I solved right point selection by drawing it and selecting by Part.Extension.SelectByID2("Point@3D sketch", "EXTSKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
Works fine, but with this selection example of getting coordinates from API help doesn't seem to work.
With
Dim...