Ginorom
This code will add the ages of selected items.
Sub Command2_Click()
Dim frm As Form, ctl As Control
Dim varItm As Variant, intI As Integer, ncount As Integer
Set frm = Forms!form1
Set ctl = frm!List3
For Each varItm In ctl.ItemsSelected
ncount = ncount + ctl.Column(1, varItm)
Next varItm
Debug.Print ncount
End Sub
'This adds the age for all items in the list box for your sample listbox
Sub Command2_Click()
Dim intI As Integer, ncount As Integer
For intI = 0 To Me!List3.ListCount - 1
ncount = ncount + Me!List3.Column(1, intI)
Next intI
Debug.Print ncount
End Sub