List Box Help Asap

[Stick]

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

[Lethal]

You'll need to add some error handling:

    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

[Stick]

THANKS !!