How to get centroid of open curve?

In rhino or vb script how to get center of OPEN curve?

There was a discussion about this in this thread… --Mitch