Visual Basic - como hallar un promedio

tengo un grupo de solo numeros en un listbox
un grupo que contiene un conjunto de numeros tantos como el usuario inserte.
si los guardo en un listbox, como hago para sacar el promedio, cual es el codigo??
gracias

Dim i, suma, promedio, lista
lista = List1.ListCount
For i = 0 To lista - 1
suma = suma + Int(List1.List(i))
Next
promedio = suma / lista

ya nada mas asignas el valor de promedio a algo... y no se te olvide crear una validacion de datos en la k solo se acepte numeros ya que te causara un error de tipos si el usuario ineserta letras