Private Sub Berechnen_Click()
 
Dim a, b, c as integer
 
a = Form.Wert_a
b = Form.Wert_b
c = Form.Wert_b
 
if(a <> 0) then
   x1 = -b + sqr(b*b - 4*a*c) / 2*a
   x2 = -b - sqr(b*b - 4*a*c) / 2*a
end if
 
if(a = 0) then msgbox "Keine reelle Lösung möglich!"
 
Form.Ergebnis_a = x1
Form.Ergebnis_b = x2
 
end sub