Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        edRabattwert.Text = String.Empty
 
        Dim decsep As String = _
        System.Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberDeci_
        malSeparator
 
        edAngebotsPriceWert.Text = edAngebotsPriceWert.Text.Replace(".", decsep)
 
        Dim angebotspreis, rabattvalue As Decimal
        If Not (Decimal.TryParse(edAngebotsPriceWert.Text, angebotspreis) _
          AndAlso angebotspreis >= 0) Then
            MsgBox("Unzulässige Preisangabe")
            Exit Sub
        End If
        If Math.Round(angebotspreis, 2) <> angebotspreis Then
            MsgBox("Unzulässiges Preisformat")
            Exit Sub
        End If
        If Not (Decimal.TryParse(edRabattPro.Text, rabattvalue) AndAlso ( _
          rabattvalue >= 0 And rabattvalue <= 100)) Then
            MsgBox("Unzulässige Angabe für Rabatt (0-100)")
            Exit Sub
        End If
        edRabattwert.Text = Format(angebotspreis * rabattvalue / 100.0, "0.00")
    End Sub