Cómo realizar cálculos numéricos en la matriz de control del cuadro de texto en VB

El código más estándar:

Subtexto privado1_GotFocus(Index As Integer)

Dim i, Max As Integer

Dim Sum As Long

Max = Text1.UBound

Suma = 1

Para i = 0 To Max

Si i lt Max; Entonces

Suma = Suma * Val(IIf(IsNumeric(Text1(i).Text), Texto1(i).Text, 1))

Else

Texto1(i).Texto = Suma

Finalizar si

Siguiente i

Fin Sub