改进Visual Basic语言中的Round实现自定义的方法

VB6.0 语言实现一舍二入请问怎么实现呢？Round可以自定义么

自己写一个，比如保留2位：
x = 1.2345
x = Int(x * 100 + 8) / 100