Public Sub GetCenter( _
   ByRef CenterObj As Object, _
   ByRef x As Double, _
   ByRef y As Double, _
   ByRef z As Double, _
   ByRef keyPoint As Boolean _
)