Visual Basic para Aplicaciones - Calculadora excel vba

'Adaptado a cada boton del 0 al 9

Private Sub cmb_0_Click()

TextBox1.Text = TextBox1.Text & "0"

End Sub

'Adaptado a cada boton de +,-,*,/, y la "," para los decimales

Private Sub cmb_division_Click()

TextBox1.Text = TextBox1.Text & "/"

End Sub

Private Sub cmb_igual_Click()

TextBox1.Text = Application.Evaluate(Me.TextBox1.Value)

End Sub

Application.Evaluate(Replace(Me.TextBox1.Value, ",", "."))

Sub AbrirCalculadora()

    Shell ("Calc.exe")

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo Salir

    If Target.Address = "$A$1" And Trim(Target) <> "" Then

       Formula = Replace(Target.Value, ",", ".")

       Target.Offset(0, 1) = Application.Evaluate(Formula)

    End If

Salir:

End Sub