No se te puede ayudar ya que esta todo mal... Incluso nunca dijiste si el Text9 se genero en tiempo de ejecucion... Tendria que tener tu proyecto para decirte tu error... Pero me juego que el problema del indice es en el Text9
Igualmente arme desde 0 para que veas como deberia funcionar lo que vos necesitas...
NOTA: Insertar 3 textbox... que tengan index 0.
Text2
Text3
Text9
Luego para generarlos:
Código:
Dim X As Integer
For X = 1 To 2
Load Text2(X)
Text2(X).Visible = True
Text2(X).Left = Text2(0).Left
Text2(X).Top = Text2(0).Top + (360 * X)
Load Text3(X)
Text3(X).Visible = True
Text3(X).Left = Text3(0).Left
Text3(X).Top = Text3(0).Top + (360 * X)
Load Text9(X)
Text9(X).Visible = True
Text9(X).Left = Text9(0).Left
Text9(X).Top = Text9(0).Top + (360 * X)
Next X
360 es la altura para que quede bien, lo multiplico por X ya que se van agregando varios en este caso 2 (trata de entender eso)
Con eso ya cargarian en tiempo de ejecucion los textbox... ahora te pongo como se armaria la suma (bah el promedio)
Código:
Dim X As Integer
For X = 1 To 2
Text9(X).Text = (CInt(Text2(X)) + CInt(Text3(X))) / 2
Next X
Saludos