Visual Basic - Duda sobre la media

Estoy calculando la media de numeros que estan en una lista(listbox) pero no me sale bien la media, no se si es por el codigo o porque, ayudadme

Private Sub Btnmedia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnmedia.Click
Dim i As Integer
Dim total As Double
For i = 0 To Lbxnumero.Items.Count - 1 Step 1
total = total + Lbxnumero.Items.Count
Next
txttotal.Text = CInt(Val(total) / Val(Lbxnumero.Items.Count))
txttotal.Text = total
End Sub

Saludos

prueba con esto y ve las diferencias que hay con tu codigo

Private Sub Btnmedia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnmedia.Click
Dim i As Integer
Dim total As Double
For i = 0 To Lbxnumero.Items.Count - 1
total = total + Lbxnumero.Items.value
Next
txttotal.Text = (total / Lbxnumero.Items.Count ).tostring()
End Sub