Dim myNumber As Double
myNumber = 1234567.89 ' 格式化为带有千位分隔符和两位小数的数字
MsgBox FormatNumber(myNumber, 2) ' 格式化为带有美元货币符号和两位小数的货币值
MsgBox FormatNumber(myNumber, 2, vbCurrency) ' 格式化为不带千位分隔符和没有小数的数字
MsgBox FormatNumber(myNumber, 0, vbFalse) 

以上代码演示了使用FormatNumber函数的三个示例：

1. 将数字格式化为带有千位分隔符和两位小数的数字；
2. 将数字格式化为带有美元货币符号和两位小数的货币值；
3. 将数字格式化为不带千位分隔符和没有小数的数字。

在上述代码中，第一个参数是要格式化的数字，第二个参数是输出的小数位数，第三个参数是可选的，用于指定货币符号的类型或是否显示千位分隔符。

注意，在使用FormatNumber函数时，必须将数字变量声明为Double类型或其他支持小数的数据类型。