Private Sub CalcDeckungsBetrag()
        edRabattWert.Text = String.Empty
        edNettoUmsatzWert.Text = String.Empty
 
        Dim decsep As String = _
          System.Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberDe_
          cimalSeparator
 
 
        edAngebotspriceWert.Text = edAngebotspriceWert.Text.Replace(".", decsep)
 
        Dim AngebotsPValue, RabattValue As Decimal
 
        'Kontrollieren ob es sich um gültige Zahlen handelt
        If Not (Decimal.TryParse(edAngebotspriceWert.Text, AngebotsPValue) _
          AndAlso AngebotsPValue >= 0) Then
            MsgBox("Unzulässige Preisangabe")
            Exit Sub
        End If
        If Math.Round(AngebotsPValue, 2) <> AngebotsPValue 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(AngebotsPValue * RabattValue / 100.0, "0.00")
 
 
        '2 Schritt => Berechnen des Nettoumsatzes
        Dim Angebot, Rabatt As Decimal
        'Kontrolle: "Sind Zahlen gültig ?"
        'FOLGT
        Try
            Angebot = CDec(edRabattWert.Text.Replace(".", decsep))
            Rabatt = CDec(edRabattWert.Text.Replace(".", decsep))
 
        Catch ex As Exception
            MsgBox("Fehlerhafte Konvertierung")
        End Try
 
        edNettoUmsatzWert.Text = Format(Angebot - Rabatt, "0.00")
    End Sub