Private Sub cmdCheck_Click()
 
Dim Zahl1, Zahl2, Ergebnis As Double
 
Ergebnis = CDbl(txtErgebnis)
Zahl1 = CDbl(lblZahl1.Caption)
Zahl2 = CDbl(lblZahl2.Caption)
 
If Zahl1 = 0 Or Zahl2 = 0 Or Not IsNumeric(Zahl1) Or Not IsNumeric(Zahl2) Then _
  GoTo Error0:
 
txtErgebnis = Ergebnis
 
Select Case lblRechenart.Caption
    Case Is = "+"
        Ergebnis = Zahl1 + Zahl2
    Case Is = "-"
        Ergebnis = Zahl1 - Zahl2
    Case Is = ":"
        Ergebnis = Zahl1 / Zahl2
    Case Is = "*"
        Ergebnis = Zahl1 * Zahl2
    Case Is = "^"
        Ergebnis = Zahl1 ^ Zahl2
    Case Is = "Log"
        Ergebnis = Log(Zahl2)
    Case Is = "Sqr"
        Ergebnis = Sqr(Zahl2)
    Case Else
        GoTo ErrorRechnungsart:
End Select