<XMP>
Sub CalcSum()
   Dim L_Sum
   Dim L_NumberArray(10)
   Dim i

   '----- Split Text  ==>  Lines
'   L_NumberArray = Selection.Text.Split(vbCrLf)

   '----- LOOP , Calc sum
   L_Sum = 0
   For i = 0 To UBound(L_NumberArray)
      L_Sum = L_Sum + CDbl(L_NumberArray(i))
   Next

   '----- Show result
   Selection.MoveRight Unit:=wdCharacter, Count:=1
   Selection.TypeParagraph
   Selection.TypeText ("Sum=" & L_Sum)
End Sub
</XMP>