''' <summary>Margen-bezogener EBAY-Verkaufspreis (Paypal-Zahlung, ohne 
' Umsatzsteuer)</summary>
''' <param name="EKP">Einkaufspreis (incl. Lager-, Gemein-  und 
' Schwundkosten)</param>
''' <param name="Porto">Portozuschlag</param>
''' <param name="Verpackung">Zuschlag für Verpackung</param>
''' <param name="marge">relative Gewinnmarge-bezogen auf Verkaufspreis (0 
' bis 1)</param>
''' <returns>Verkaufspreis incl. Porto und Verpackung</returns>
Private Function Ebay_VKP _
    (ByVal EKP As Double, Porto As Double, Verpackung As Double, marge As _
    Double) As Double
 
    Const Ppf As Double = 0.019  'Paypal-Faktor
    Const Add As Double = 0.35
    Const Ef As Double = 0.08    'Ebay-Faktor
 
    If Not ispositive(EKP) Or Not ispositive(marge) Then Return Nothing
    If Porto < 0 Or Verpackung < 0 Then Return Nothing
 
    Dim kf As Double = 1 / (1 - marge) 'Umrechnungsfaktor Kosten
    Dim vkpf As Double = 1 / (1 - kf * (Ppf + Ef)) 'Umrechnungsfaktor 
    ' Kostenanteil VKP
 
    Dim vkp As Double = vkpf * kf * (EKP + Add + Verpackung + (Ppf + Ef) * _
      Porto)
 
    'Kontrolle
    'Kosten als Summe
    'Dim kost As Double = _
    '    (EKP + Ef * (vkp + Porto) + Ppf * (vkp + Porto) + Add + Verpackung)
    'Kosten als Prozentanteil des VKP
    'Dim kost2 As Double = vkp * (1 - marge)
    'Beide Werte müssen gleich sein
    'If Math.Abs(kost - kost2) > 0.01 * kost Then Stop
 
    Return vkp + Porto 'Portoaufschlag
End Function
 
 
Private Function ispositive(ByVal vl As Double) As Boolean
 
        Return vl > 0.0000001D
End Function