Page 142 of the primer deals with closest point to surface (On3dPoint > OnNurbsSurface) but basically it's the same call for curves as well.
Dim nsrf As New OnNurbsSurface
nsrf = y.Face(0).NurbsSurface
Dim u As Double
Dim v As Double
nsrf.GetClosestPoint(x, u, v)
