como sumo los elementos de una lista

[PACO_TORG]

saludos a todos..

estoy tratando de sumar los elementos de una lista con una funcion SumarElementos; la verdad no se si este bien hecha, cuando llamo a la funcion y ejecuto el programa me dice que esperaba una matriz.....
podrian orientarme un poquitin...

este es el codigo que utilizo

Private Sub ChameleonBtn1_Click()
Dim Agregar As Integer
Agregar = InputBox("Agregar elemento")


List1.AddItem Agregar

End Sub

Private Sub ChameleonBtn2_Click()
Dim Elementos_lista As Integer

Elementos_lista = List1.ListCount - 1


Text1.Text = SumarElementos(Elementos_lista)


End Sub

Public Function SumarElementos(Lista As Integer) As Integer

Dim i As Integer
Dim Suma As Integer

Suma = 0
For i = 0 To Lista - 1

Suma = Suma + Lista(i)
SumarElementos = Suma


End Function