请教 在vbscript中写一个类似FormatPercent这样功能的函数

请问 在vbscript中写一个类似FormatPercent这样功能的函数
在vbscript中写一个类似FormatPercent这样功能的函数
但是还需要把数值先三舍四入。
FormatPercent的功能是把一个小数用百分数的形式表现。
现在的关键就是 三舍四入这个怎么做？

[解决办法]
不知道你要保留几位小数。
dim a
dim b
a = 0.1234
b = 1

a = a + (1/10^(2 + b))
msgbox a
msgbox formatpercent(a,b)