Dim ergebnis As Double = CDbl("0")
        Dim wert1 As Double = 0
        Dim wert2 As Double = 0
 
        If Double.TryParse(txtWert1.Text, wert1) AndAlso _
           Double.TryParse(txtWert2.Text, wert2) AndAlso _
           Double.TryParse(txtErgebnis.Text, ergebnis) Then
 
            MessageBox.Show(IIf(wert1 + wert2 = ergebnis, "Richtig", _
              "Falsch").ToString)
        Else
            MessageBox.Show("Falsche Eingabe")
        End If