Dim Bonuskarten As Decimal
        Dim Buchungsspecial As Decimal
        Dim Hundekindergarten As Decimal
        Dim Seniorenprogramm As Decimal
        Dim Tagesgast As Decimal
        Dim Tiertransport As Decimal
        Dim UrlaubmitHund As Decimal
        Dim Leistungen As Decimal
 
        Bonuskarten = CDec(lblBonuskarten.Text)
        Buchungsspecial = CDec(lblBuchungsspecial.Text)
        Hundekindergarten = CDec(lblHundekindergarten.Text)
        Seniorenprogramm = CDec(lblSeniorenprogramm.Text)
        Tagesgast = CDec(lblTagesgast.Text)
        Tiertransport = CDec(lblTiertransport.Text)
        UrlaubmitHund = CDec(lblUrlaubmitHund.Text)
 
        Leistungen = Bonuskarten + Buchungsspecial + Hundekindergarten + _
          Seniorenprogramm + Tagesgast + Tiertransport + UrlaubmitHund
 
        lblBonuskarten.Text = Format(Bonuskarten, "€ #,##0.00")
        lblBuchungsspecial.Text = Format(Buchungsspecial, "€ #,##0.00")
        lblHundekindergarten.Text = Format(Hundekindergarten, "€ #,##0.00")
        lblSeniorenprogramm.Text = Format(Seniorenprogramm, "€ #,##0.00")
        lblTagesgast.Text = Format(Tagesgast, "€ #,##0.00")
        lblTiertransport.Text = Format(Tiertransport, "€ #,##0.00")
        lblUrlaubmitHund.Text = Format(UrlaubmitHund, "€ #,##0.00")
        lblLeistungen.Text = Format(Leistungen, "€ #,##0.00")