Visual Basic - SUMAS AUTOMATICAS

Buenos dias,

os vais a reir, pero como puedo hacer que la suma de cajas se haga automatica, con un command lo hago, pero automàticamente no lo se hacer, y hace tiempo que esto lo habia hecho, pero estoy bloqueado (además es básico)

tengo este codigo (hay 10 text pero pongo el codigo más corto)

Dim Num1 As Double, Num2 As Double, res As Double

Num1 = Text2.Text
Num2 = Text4.Text
res = Num1 + Num2
sumatotal.Text = res
sumatotal.Refreshs

Estoy bloqueado.

Grácias

Holi

Private Sub Text1_LostFocus(Index As Integer)
Dim i As Integer, dSuma As Double
For i = 0 To Index
dSuma = dSuma + Text1(i).Text
Next i
sumatotal.Text = dSuma
End Sub
Como podrás observar los TextBox están en un array de controles (Text1(0), Text1(1)...Text1(10).
Espero que te sirva. Saludos