lo siento mira esta es la codificacion

Private Sub Command1_Click()
Dim n As Integer
Dim suma As Integer
Dim pro As Integer
For I = 1 To 0
n = Val(InputBox("Dame un numero", "NUMEROS HASTA QUE UNO SEA 0"))
suma = suma + n
pro = suma / n
If n = 0 Then
label1.Text = suma
Else
Next I
label2.pro
End If
End Sub

un  programa que me permita iIngresar números hasta que uno sea cero. Calcular el promedio de ellos y mostrar el  resultado y cuántos se ingresaron.