find listbox column Average

The code below i found using google, but i have not been able to find anything that gets the average of a listbox column. Can someone assist me to getting the average of the

Code:

---

With lbxLots
    For i = 0 To .ListCount - 1
        dPrice = dPrice + .List(i, 2) 'Sum the 3rd column
    Next i
End With

---

Code:

---

Dim dAverange As Double

With lbxLots
    For i = 0 To .ListCount - 1
        dPrice = dPrice + .List(i, 2) 'Sum the 3rd column
    Next i
   
    dAverange = dPrice / .ListCount
End With

---

Artik

Thank you Artik for your help:friends: