Dim k As Integer
Dim arreglo() As String
Dim total As Integer
Dim igual() As String
Dim cambio As Integer
Dim formula(22) As Variant
Dim j As Integer
Dim z As Integer
Dim m As Integer
arreglo = Split(variable.Text, ";")
For m = 0 To m = 21
formula(m) = Mid(w.Text, m + 1, 1)
Next m
For k = LBound(arreglo) To UBound(arreglo)
igual = Split(arreglo(k), "=")
For j = 0 To j = 21
If igual(0) = formula(j) Then
formula(j) = igual(1)
End If
Next j
igual(k) = ""
Next k
total = Val(formula(0))
For m = 0 To m = 2
cambio = Val(formula(m + 1))
Select Case formula(m)
Case "*"
total = total * cambio
Case "/"
total = total / cambio
Case "+"
total = total + cambio
Case "-"
total = total - cambio
End Select
Next m
result.Text = total