Private Sub CB_Rechnen_Click()
Dim a As Double
If IsNumeric(TB_a.Text) = True Then
    ' Nur dann handelt es sich um eine Zahl
    a = CDbl(TB_a.Text)
    If a = 0 Then
        MsgBox "Keine quadratische Gleichung"
        Exit Sub
    End If
Else
    ' Hier prüfen, ob nichts eingegeben worden ist
    ' oder z.B. Buchstaben
    If Trim(TB_a.Text) = "" Then
        a = 1
    Else
        MsgBox "Es dürfen nur Ziffern eingegeben werden"
        Exit Sub
    End If
End If
 
MsgBox a
' Hier kannst du weiter rechnen da es mathematisch gesehen
' sich um eine quadratische Gleichung handelt.
 
' Jetzt erst mal prüfen, ob der Teil unter der Wurzel nicht 0
' oder netagiv wird. Dann erst weiter machen.
 
End Sub