¿Qué pasa si los valores ingresados ​​en varios cuadros de texto en VBA son fijos?

Private Sub CommandButton1_Click()

Dim i, s$, isumamp;, ar

For i = 1 To 3 'Recorre el número del cuadro de texto

s = Controls("TextBox" & i).Value 'El valor del cuadro de texto actual

Si no s = "" Entonces

Si s es como "# ##-###" Entonces

ar = Split(s, "-") 'Separar en matrices por - símbolo

isum = isum Val(ar (1)) - Val(ar(0)) 1

Else

s = "Cuadro de texto" amp; i amp ", error de entrada!"

s = s amp; vbLf amp; vbLf amp; "Solo se permiten los dos formatos siguientes:"

s = s vbLf amp;

s = s amp; vbLf amp; "Permitir: ingrese ###-###"

s = s vbLf amp; >

MsgBox s, 16: Salir Sub 'Salir del programa

Finalizar si

Finalizar si

Siguiente

MsgBox " ¡Cálculo completo!" amp; vbLf amp; "El resultado final es:" amp; isum, 64

End Sub