Public Function MeinRunden(zahl As Double) As Double
   MeinRunden = cLng(zahl * 100 + 0.5) / 100
End Function
 
Dim EPreis As Double
Dim GPreis As Double
Dim SummeNetto As Double
Dim SummeMwSt As Double
 
EPreis = CDbl(Text1(3).Text)
GPreis = EPreis * CDbl(Text1(9).Text)
 
SummeMwSt = MeinRunden(GPreis / 100 *  CDbl(Text1(7).Text))
SummeNetto = GPreis + SummeMwSt