'Die Nummern der Zähler in ein Array schreiben
   Dim counters(2) As Integer
 
   counters(0) = 22007880
   counters(1) = 22007881
   counters(2) = 22007885
 
   'Die Verbräuche gemäß der drei Wasser-Zähler in ein Array schreiben:
   Dim consums(2) As Double
   For i As Integer = 0 To counters.Length - 1
       consums(i) = GetConsum(BS_Wasser, firstdate, lastdate,
              "Ablesedatum", "W" & counters(i).ToString)
   Next i
 
   'Schleife für  Meldung
   For i = 0 To counters.Length - 1
       Meldung &= "Zählernummer W" & counters(i).ToString &
        " Verbrauch: " & consums(i).ToString("0.00") & " m³" & vbCrLf
       csum += consums(i) 'Summe der Verbräuche
   Next i