Private Sub Command1_Click()
Dim i As Integer, j As Long
j = 123456789
i = Len(CStr(j))
MsgBox i
End Sub

Str 函数的作用是将一个数值表达式转换为一个字符串，且表达式的类型不变。其语法格式为：
Str(number)