vb分离法的怎么用的

'建立一个command1
Option Explicit

Private Sub Command1_Click()
Dim A As Double, St As String, I As Integer, T As Boolean
Do
St = InputBox("一个数字(只包括0-9的数字)", "输入", 1234)
If St <> "" Then
For I = 1 To Len(St)
If Mid(St, I, 1) >= "0" And Mid(St, I, 1) <= "9" Then
T = True
Else
T = False
Exit For
End If
Next
If T Then Exit Do
End If
Loop
Print "数字为：" + St
For I = 1 To Len(St)
Print "第" + Str(I) + "个数字：", Mid(St, I, 1)
Next
Print "共分解为：" + Str(I - 1) + "个单独数字"
End Sub

Private Sub Form_Load()
Form1.AutoRedraw = True
End Sub