Hey Leute, hab mal vor einigen Tagen einen Taschenrechner Programmiert. Funktioniert auch alles nur mein Problem ist es, dass ich die Codes beim Gleichheits Zeichen verkürtzen will durch eine eigene selbsterstellte Function. Würde mich über Tipps und Hilfe freuen.

Hier der Code fürs Gleichheitszeichen und die Variabeln:

Dim FirstNumber As Double
Dim SecondNumber As Double
Dim AnswerNumber As Double
Dim ArithmeticProcess As String
Dim Zahl As Double
Dim Op As String

Private Sub cmdgleich_Click()
SecondNumber = Val(Replace(txtDisplay.Text, ",", "."))
If Op = "+" Then
AnswerNumber = FirstNumber + SecondNumber
End If
If Op = "-" Then
AnswerNumber = FirstNumber - SecondNumber
End If
If Op = "X" Then
AnswerNumber = FirstNumber * SecondNumber
End If
If Op = "/" Then
If SecondNumber = "0" Then
MsgBox "Man kann nicht mit Null teilen", 16, "Achtung"
Exit Sub
End If
AnswerNumber = FirstNumber / SecondNumber
End If
txtDisplay.Text = AnswerNumber
End Sub