option explicit
																		
Dim Fehler,i


 Fehler=0

for i = 1 to TradeAnzahl

	  if TradeErgebnis(i, eTradeInfo.Position)<> True Then
		
		Fehler= Fehler+(TradeErgebnis(i,eTradeInfo.InvestEnd) - TradeErgebnis(i,eTradeInfo.InvestStart))
    
      end if
next

Ergebnis = Fehler