Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles button1.Click
 
     If Not IsNumeric(txtanzeige.Text) Then
        MsgBox("Geben Sie Bitte einen numerischen Wert ein")
        Exit Sub
     End If
 
     Dim Einkommen As Double = Math.Round(CDbl(txtanzeige.Text), 2)
     If Einkommen < 0 Then
        MsgBox("Geben Sie bitte ein nichtnegatives Einkommen an")
        exit sub   
     End If
 
    If Einkommen <= 12000 Then
       lblAnzeige.Text = CStr(Math.Round(Einkommen * 0.12, 2))
    ElseIf Einkommen > 12000 And Einkommen <= 20000 Then
       lblAnzeige.Text = CStr(Math.Round(Einkommen * 0.15, 2))
    Else
       lblAnzeige.Text = "zur Zeit undefiniert"
    End If
End Sub