编写“数字提取”程序，实现如下功能：在文本框Text1中输入文本信息，点击“提取”按钮Command1，将文本信息中的数字以“，”间隔输出到文本框Text2中。程序运行界面如图所示，VB代码如下，请回答下列问题：

(1)如图所示，该程序共有________个对象。
(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()

Dim m As String，tmp As String，ch As Strin

Dim s As String，i As Integer

m=Text1.Text

tmp=""

s=""

For i=1 To Len(m)

ch=Mid(m，i，1)

If ch>="0"And ch <="9" Then

______________

Else If tmp<>"" Then

s=s+tmp+"，"

______________

End If

Next i

Text2.Text=s

End Sub
(3)输入的文本信息如图a所示，若删除加框处代码，则文本框Text2中显示的内容为________________。