可以參考下面的代碼：
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