Sum=0
For i=0 to list1.listcount-1
  Sum=Sum+Val(list1.list(i))
Next
Text1.text=Sum

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)