Matriz de objetos Visual Basic 6

Estoy aprendiendo Visual 6.0. Tengo una matriz de textboxes, la cual debo sumar su contenido y luego obtener el promedio. Estoy teniendo problemas, ya que no logro que me sume, sino que además, ¿he corroborado que el contador siempre queda en valor 1. Pueden decirme donde estoy cometiendo el error? Tengo los texboxes, y un botón de comando, eso es todo.

Codigo
Private Sub Form_Load()
Dim txtvalores(1 To 9) As Integer
Dim cantidadnotas As Integer
Dim sumatotal As Integer
Dim promedio As Integer

cantidadnotas = 0
sumatotal = 0
promedio = 0
End Sub

Private Sub Command1_Click()

For i = 0 To i = 9
If txtvalores(i).Text <> "" Then
sumatotal = sumatotal + txtvalores(i).Text
cantidadnotas = cantidadnotas + 1
End If
Next
promedio = sumatotal / cantidadnotas

End Sub