Código de la función RealizaCálculos - Calculadora

Function RealizaCalculos(Cadena As String) As Double
Dim i, operador1, operador2, LargoCadena As Integer
Dim caracter As String
LargoCadena = Len(Cadena)
For i = 1 To LargoCadena
caracter = Mid(Cadena, i, 1)
If caracter = "+" Then
operador1 = Val(Left(Cadena, (i - 1)))
operador2 = Val(Right(Cadena, (LargoCadena - i)))
RealizaCalculos = operador1 + operador2
End If
If caracter = "-" Then
operador1 = Val(Left(Cadena, (i - 1)))
operador2 = Val(Right(Cadena, (LargoCadena - i)))
RealizaCalculos = operador1 - operador2
End If
If caracter = "*" Then
operador1 = Val(Left(Cadena, (i - 1)))
operador2 = Val(Right(Cadena, (LargoCadena - i)))
RealizaCalculos = operador1 * operador2
End If
If caracter = "/" Then
operador1 = Val(Left(Cadena, (i - 1)))
operador2 = Val(Right(Cadena, (LargoCadena - i)))
RealizaCalculos = operador1 / operador2
End If
Next i
End Function