alguien me podria ayudar con este programa ? :S

[edusilkroad]

Se desea desarrollar una aplicación para el manejo centralizado de pagos del servicio de electricidad
debe permitir lo siguiente:
1.- poder repetirse tantas veces como clientes lleguen a la taquilla.
2.- mostrar al final del dia el total recaudado.
3.- mostrar el maximo pago realizado.
4.- a los consumos de más de 2000KVA (Kilovoltioamperio) se aplica un recargo del 25% de lo facturado.

y solo llevo esto que por cierto igualmente me da errores :

Private Sub Command1_Click()
Dim i As Integer, cltaquilla As Long
Label2.Visible = True
cltaquilla = 0
For i = 1 To 10
cltaquilla = cltaquilla + i
nex i
Label2.Caption = "taquilla =" + Str(cltaquilla)
End Sub

alguien me podria ayudar con este problema por favor