Meldung = "Erfassungszeitraum: " &
           firstdate.ToShortDateString & " bis " &
           lastdate.ToShortDateString & vbCrLf & vbCrLf
 
   'Dann eine Schleife über ein Stringarray das die Zähler-Nummern enthält
   'und ein Array, das die ermittelten Verbräuche enthält.
 
   Dim counters(2) As Double 'counters(0)="Zählernummer-22007880" usw  
   Dim consums(2) As Double 'Array mit den Verbräuchen c1, c2, c3
   Dim csum As Double
 
   For i = 0 To counters.Length - 1
       Meldung &= "Zählernummer " & counters(i) &
       " Verbrauch: " & consums(i).ToString("0.00") & " m³" & vbCrLf
       csum += consums(i) 'Summe der Verbräuche
   Next i
 
   Meldung &= vbCrLf & "Mittlerer täglicher Verbrauch: "
   Meldung &= (csum * 1000 / (lastdate - firstdate).TotalDays).ToString("0.00") _
     & " L."