Extract value from text arrays with LotusScript

Sample code used for extracting the value from text list using LotusScript.

code started from below :

'-----------------------------Declaration---------------------------------------'
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim money As Variant
Dim m As integer

Dim total As Integer

'---------------------------Initialisation-----------------------------------------'
Set db=session.Currentdatabase
Set view=db.Getview(ViewName)
Set doc= view.Getfirstdocument()
While Not doc Is Nothing
money=doc.Getitemvalue(FieldName)
For m=0 To UBound(money)
total = total +money(m)
Next
Set doc= view.Getnextdocument(doc)
Wend