用VB編寫 輸入壹個整數，將其數值按小於10、10~99、100~999、1000以上分類並顯示。 謝謝了！！！！！！！

Dim n As Long, d As Integer, s As String

n = InputBox("請輸入壹正整數") '輸入數字

s = n '轉成字符串型

d = Len(s) '獲取字符串長，即數字有多少位

MsgBox (n & "屬於" & 10 ^ (d - 1) & "到" & 10 ^ d - 1) '輸出