Console.WriteLine("Suchvorgang läuft...")
 
        Dim suchText As String = IO.File.ReadAllText( _
          "C:\AnfrageServletGEAENDERT2.log")
 
         Dim suchMuster As New Regex("(?<=<anmenge>)\d*(?=</anmenge>)")
 
        Dim gesamtSumme As Integer
        Dim suchErgebnisse As MatchCollection = suchMuster.Matches(suchText)
 
        For Each suchErgebnis As Match In suchErgebnisse
                        gesamtSumme += CInt(suchErgebnis.Value)
 
        Next
 
        Console.WriteLine("Summe:" & gesamtSumme.ToString)
        Console.ReadLine()

suchText.Replace("<anmenge></anmenge>", "<anmenge>0</anmenge>")