Dim listenpreis() As String = {tb120.Text}
        Dim skonto() As String = {tb130.Text}
        Dim rabatt() As String = {tb140.Text}
        Dim bezugskosten() As String = {tb150.Text}
        Dim ergebnis() As String = {lbl110.Text}
        Dim temp As Double
        Dim temp2 As Double
 
        temp = listenpreis(0) * (1 - (skonto(0) / 100))
        If Not rabatt(0) = "0" Then
            If Not rabatt(0) = "" Then
                temp = temp * (1 - (rabatt(0) / 100))
            Else
                rabatt(0) = "0"
                temp = temp
            End If
        Else
            rabatt(0) = "0"
            temp = temp
        End If
        temp2 = temp + bezugskosten(0)
        ergebnis(0) = temp2