Private Sub Command1_Click()
Dim x
dim i as integer
dim str as string

x = InputBox("请输入一个0到99999之间的整数")
'Text1.Text = "您输入的数字是" & Len(x) & "位数"
for i = 1 to Len(x)
str = str & Lift(x,i)
if len(str) = len(x) then

msgbox "你输入的是" & len(str) & "为数"

end if
next
End Sub

不知道这样写合不合你意，不过想不明白楼主的用意，呵呵

Private Sub Command1_Click()
Dim x
dim i as integer
dim str as string

x = InputBox("请输入一个0到99999之间的整数")
'Text1.Text = "您输入的数字是" & Len(x) & "位数"
for i = 1 to Len(x)
str = str & Left(x,i)
if len(str) = len(x) then

msgbox "你输入的是" & len(str) & "为数"

end if
next
End Sub

不好意思，打错了