hacer suma usando for vb formulario

[tinlui]

ok gracias ya lo puse solo que el contador no avanza puse el mensaje y siempre me dice que esta en el 0 y por ende nunca entra en la condicion mira
Dim lista As ArrayList = New ArrayList(2)
Dim cont As Integer = 0
Dim i, total As Integer

lista.Add(Val(TxtNumero.Text))
MsgBox("has agredado el numero " & cont)
cont = +1
TxtNumero.Clear()
TxtNumero.Focus()
If cont = 2 Then
For i = 0 To 2 Step 1
total = total + lista(i)

Next
MsgBox(total)
End If