Ist es Ihnen schon aufgefallen, dass die Round-Funktion
    nicht kaufmännisch runden kann ?

    Testen Sie es:    

   X1 = Round(2.5, 0)
    Hier erhalten Sie als Ergebnis 2
    Verwenden Sie jedoch die die folgende Funktion,
    erhalten Sie das gewünschte Ergebnis:

   Function Runden(Zahl As Double, Dezimalanzahl As Integer) As Double
      Runden = Int(Zahl * 10 ^ Dezimalanzahl + 0.5) / 10 ^ Dezimalanzahl
   End Function   

   X2 = Runden(2.5, 0)

      Nun erhalten Sie als Ergebnis 3