Die von Ihnen definierte Funktion ist rekursiv und ruft sich bedingungslos auf, bis der Stack mit allen Aufrufen gefüllt ist.
Sie sollten den Namen Ihrer Subroutine ändern, zB: -
Sub Calc() Calculate End Sub
Wenn Sie Calc()
auf die Schaltfläche verweisen, vermeiden Sie Rekursionen.