Private Sub BerechneSummen()
 
  Dim SummeNetto As Long
  Dim SummeMWSt As Long
  Dim SummeBrutto As Long
  Dim I As Integer
 
  SummeNetto = 0
 
  SummeNetto = SummeNetto + Int(Val(Replace(lblGPreis, ",", ".")) * 100)
 
  SummeMWSt = Int(SummeNetto / 100 * 16 + 0.5)
  SummeBrutto = SummeNetto + SummeMWSt
 
  lblSummeNetto.Caption = Format$(SummeNetto / 100, "0.00")
  lblSummeMWSt.Caption = Format$(SummeMWSt / 100, "0.00")
  lblSummeBrutto.Caption = Format$(SummeBrutto / 100, "0.00")
 
End Sub
 
Private Sub Text1_Change(Index As Integer)
 
  Dim EPreis As Long
  Dim GPreis As Long
 
  EPreis = Int(Val(Replace(Text1(2), ",", ".")) * 100)
  GPreis = EPreis * Val(Text1(9).Text)
  lblGPreis.Caption = Format$(GPreis / 100, "0.00")
 
  Call BerechneSummen
 
End Sub