'Temponäre Variable
Dim TEMP As Double
'Dezimalzahlenseperator 
Dim decspt As String = _
  System.Globalization.CultureInfo.CurrentCulture.NumberFormat.NumberDecimalSep_
  arator
 
        'Variablen Deklarationen ==>  STRING Text auslesen & DOUBLE rechnen
 
        'Angebotspreis Variablen 
        Dim AngebotsPString As String, AngebotsPValue As Double
        'String bekommt den Wert aus der Textbox
        AngebotsPString = edAngebotspriceWert.Text
 
        'Rabatt Variablen 
        Dim RabattString As String, RabattValue As Double
        'String bekommt den Wert aus der Textbox
        RabattString = edRabattPro.Text
 
        'Den ersten Berechnungswerten ihre Zahlen zuweisen
        'Angebotspreis und Rabatt Variablen zum Rechnen bereitstellen
        Try
           Double.TryParse(AngebotsPString, AngebotsPValue)
           Double.TryParse(RabattString, RabattValue)
        Catch ex As InvalidNumberFormatException
        End Try
 
        'Rabattanteil berechnen und in temporärer Variablen speichern
        TEMP = AngebotsPValue * RabattValue / 100
        'In Textbox 3 das Rechenergebnis ausgeben 
        'Egal welcher wert - Hier steht immer eine Null und ich habe keinen 
        ' Plan warum
        edRabattWert.Text = CStr(TEMP)