Private Sub WV_grossesBad()
        Dim startdate As Date = CDate(tbstart.Text).ToShortDateString
        Dim endedate As Date = CDate(tbende.Text).ToShortDateString
        'Zaehler 22007880
        Dim NL As String = Environment.NewLine
        Dim Titel As String = "Statusmeldung"
 
        Dim C1 As Double = GetConsum(BS_Wasser, startdate, endedate, _
          "Ablesedatum", "W22007880")
 
        Dim Meldung As String = String.Concat(NL, "Wasserverbrauch: ", NL, _
                                                  C1)
        MessageBox.Show(Meldung, Titel, MessageBoxButtons.OK, _
          MessageBoxIcon.Information)
    End Sub