C# / VB.NET - Media Aritmetica

        On Error GoTo gestione
		Dim risultato As Object
		Dim a As Object
        For a = 0 To lstNumeri.Items.Count
            a = a + 1
            risultato = risultato + Val(lstNumeri.Items.Item(a))
        Next
        risultato = risultato / lstNumeri.Items.Count
        MsgBox(risultato)
        Exit Sub
gestione:

quando inserisco questo codice mi da errore.
ho provato ad upgradarlo da vb6 ma mi da questo pezzo di codice, che credo nn sia l'unica strada

	Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
		Dim risultato As Object
		Dim a As Object
		On Error GoTo gestione
		For a = 0 To List1.Items.Count
            risultato = risultato + Val(VB6.GetItemString(List1, a))
		Next 
        risultato = risultato / List1.Items.Count
		MsgBox(risultato)
		Exit Sub
gestione: 
	End Sub

Ora, non ti sei spiegato molto bene, ma se questa ? la sezione .NET, ti scrivo il codice cirretto in VB.NET:

Public Sub esempio
Try
Dim risultato As Int64
Dim a As Int64

For a = 0 To lstNumeri.Items.Count-1
risultato += CInt(lstNumeri.Items.Item(a))
Next
risultato /= lstNumeri.Items.Count
MsgBox("Il risultato ? " & risultato,msgboxstyle.information)
catch ed as system.invalidcastexception
msgbox("Un elemnto non ? un numero!",msgboxstyle.exclamation)
catch er as system.invalidcastexception
msgbox("Errore di cast!",msgboxstyle.exclamation)
End Try
End Sub

si avevo gia risolto... grazie lo stesso cmq