FindeEintraginDatei(lIdx) = (Mid(sTextZeile, lStart, lEnde - lStart))

Private Sub Command1_Click()
 
Dim arrWerte() As String
Dim lSumme As Long
Dim i As Integer
 
arrWerte = FindeEintraginDatei(App.Path & "\test.xml", Chr(34) & "L-00" & Chr( _
  34), " Pass=""")
lSumme = 0
For i = 1 To UBound(arrWerte)
    If IsNumeric(arrWerte(i)) Then dblSumme = dblSumme + CLng(arrWerte(i))
Next
txtMenge = lSumme
 
End Sub
 
 
' Sucht in der "xlm" - Datei nach bestimmten Strings
Public Function FindeEintraginDatei(ByRef sDateipfad As String, ByRef sSuche As _
  String, ByRef sSuche2 As String) As String()
Dim iTextdatei As Integer
Dim sTextZeile As String
Dim lStart As Long
Dim lEnde As Long
Dim lIdx As Long
 
 
lIdx = 0
'Wurde nichts gefunden ist der Rückgabewert ein Array mit nur dem Element 0
ReDim FindeEintraginDatei(lIdx)
 
On Error GoTo end_function
 
'öffne Datei
iTextdatei = FreeFile
Open sDateipfad For Input As iTextdatei
 
'Schleife bis Datreiende
Do While Not EOF(iTextdatei)
    'Lese eine Zeile aus Datei
    Line Input #iTextdatei, sTextZeile
 
    'Suche Schlüsselwort, Anfürungsstriche werden im String durch "" dargestellt
    lStart = InStr(1, sTextZeile, sSuche & sSuche2)
 
    'Wurde Schlüsselwort gefunden?
    If lStart > 0 Then
        'Das Einlesen des gesuchten Wertes beginnt direkt nach dem Schlüsselwort
        lStart = lStart + Len(sSuche & sSuche2)
        'und endet vor dem nächsten Leerzeichen
        lEnde = InStr(lStart, sTextZeile, Chr(34))
        If lEnde > 0 Then
            'Gesuchten Wert in Array eintragen
            lIdx = lIdx + 1
            ReDim Preserve FindeEintraginDatei(lIdx)
            FindeEintraginDatei(lIdx) = (Mid(sTextZeile, lStart, lEnde - _
              lStart))
        End If
    End If
Loop
 
end_function:
    'schließe Datei
    Close #iTextdatei
End Function