Arreglo & Promedio

Dim arreglo(9) As Integer
Dim i As Integer
Dim promedio As Single
Private Sub Command1_Click()
i = 0
promedio = 0
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
Private Sub Command2_Click()
End
End Sub