Dim TEMP As Double
        'Variablen Deklarationen ==>  STRING Text auslesen & LONG 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
            AngebotsPValue = CType(AngebotsPString, Double)
            RabattValue = CType(RabattString, Double)
        Catch ex As Exception
        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)