List Box Help Asap

Hey,
How could i add a listbox contents
Say there is a list box with the following Numbers
1
2
3



I need code to add that list up answer 6



THANKS

You'll need to add some error handling:

Code:

---

    Private Function SumItems(ByVal lstSouce As ListBox) As Long
        Dim o As Object
        For Each o In ListBox1.Items
            SumItems += CType(o.ToString(), Long)
        Next
    End Function

---

THANKS !!