Public Sub GetFaultsOfBody( _
   ByRef NumPrimaryFaultGeometries As Long, _
   ByRef PrimaryFaultGeometries() As Object, _
   ByRef NumSecondaryFaultGeometries As Long, _
   ByRef SecondaryFaultGeometries() As Object, _
   ByRef FaultStates() As Long, _
   ByRef Positions() As Double _
)