Dim Wurzel1 As Currency
Dim Wert_A As Currency
Dim Wert_B As Currency
Dim Wert_C As Currency
 
Wert_A = Val(txtA_Wert.Text)
Wert_B = Val(txtB_Wert.Text)
Wert_C = Val(txtC_Wert.Text)
 
'Wenn nichts eingegeben wird, kommt eine Fehlermeldung
 
If (txtA_Wert.Text = "") And (txtB_Wert.Text = "") And (txtC_Wert.Text = "") _
  Then
lblFehlerausgabe.Caption = "Bitte geben Sie für A,B und C Werte ein."
Exit Sub
Else
 
'Wenn Wert_A = 0 ist kommt eine Fehlermeldung
 
If Wert_A = 0 Then
lblFehlerausgabe.Caption = "Wert A darf nicht 0 sein!"
lblErgebnisX1.Caption = "X1 = "
lblErgebnisX2.Caption = "X2 = "
Exit Sub
Else
 
'Wenn der Wert unter der Wurzel positiv ist wird Wurzel berechnet
'und Ergebnis nach Formel ausgegeben
 
If (Wert_B ^ 2 - 4 * Wert_A * Wert_C) >= 0 Then
  Wurzel1 = Sqr(Wert_B ^ 2 - 4 * Wert_A * Wert_C)
  lblErgebnisX1.Caption = "X1 = " & Format$(CCur((-Wert_B + Wurzel1) / (2 * _
    Wert_A)), "0.00")
  lblErgebnisX2.Caption = "X2 = " & Format$(CCur((-Wert_B - Wurzel1) / (2 * _
  Wert_A)), "0.00")
  lblFehlerausgabe.Caption = ""
Else
 
'sonst Wert unter Wurzel positiv machen für komplexe Lösung
 
Wurzel1 = Sqr((Wert_B ^ 2 - 4 * Wert_A * Wert_C) * (-1))
 
'Ergebnis nach Formel ausgeben
 
  lblErgebnisX1.Caption = "X1 = " & Format$(CCur(-Wert_B / (2 * Wert_A)), _
    "0.00") & " + " & Format$(CCur(Wurzel1 / (2 * Wert_A)), "0.00") & " j"
  lblErgebnisX2.Caption = "X2 = " & Format$(CCur(-Wert_B / (2 * Wert_A)), _
  "0.00") & " - " & Format$(CCur(Wurzel1 / (2 * Wert_A)), "0.00") & " j"
  End If
End If
End If
 
End Sub