vb格式化函数