dim arrWerte() as String
dim lSumme as Long
dim i as Integer
 
arrWerte = FindeEintraegeInDatei(EingangsDatei, Chr(34) & "L-00" & Chr(34), "" & _
  "Pass=""")(EingangsDatei, Chr(34) & "L-00" & Chr(34), " Pass=""")
 
lSumme = 0
for i = 1 to ubound(arrWerte)
   if IsNumerich(arrWerte(i)) then dblSumme = dblSumme + CLng(arrWerte(i))
next
 
frmHaupt.txtMenge = lSumme