Public Sub GetTextAndFontAtIndex( _
   ByVal Index As Long, _
   ByRef TextString As String, _
   ByRef FontName As String, _
   ByRef OriginX As Double, _
   ByRef OriginY As Double, _
   ByRef OriginZ As Double, _
   ByRef X_DirX As Double, _
   ByRef X_DirY As Double, _
   ByRef X_DirZ As Double, _
   ByRef Z_DirX As Double, _
   ByRef Z_DirY As Double, _
   ByRef Z_DirZ As Double _
)