find listbox column Average

[av8tordude]

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

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

[Artik]

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

[av8tordude]

Thank you Artik for your help