' Общая функция округления.

Function fctRound(dblNumber As Double, _
  Optional intDecimals As Integer = 1) As Double
    ' Округляет число до заданного количества десятичных знаков.
    ' 0.5 округляется в сторону увеличения.
    Dim dblFactor As Double
    Dim dblTemp As Double
    
    dblFactor = 10 ^ intDecimals
    dblTemp = dblNumber * dblFactor + 0.5
    fctRound = Int(dblTemp) / dblFactor
End Function

?fctRound(65265,-3)
65000
?fctRound(1065265 ,-3)
1065000