可以参考下面的代码：
private sub command1_click()
x=inputbox("输入一个三位数")
X1=X\100 'x1=三位数 的百位
X2=(X-X1*100)\10 '十位
X3=X-X1*100-X2*10 '个位
msgbox X3&X2&X1
end sub
扩展资料：
VB基本函数
CBool 函数： 返回已被转换为 Boolean 子类型的变体的表达式。
CByte 函数： 返回已被转换为字节子类型的变体的表达式。
CCur 函数 ：返回已被转换为货币子类型的变体的表达式。
CDate 函数： 返回已被转换为日期子类型的变体的表达式。
CDbl 函数： 返回已被转换为双精度子类型的变体的表达式。
参考资料来源：百度百科-Visual Basic
