Private Sub Command1_Click()
Dim zf As String, tmp As String
Dim s As String, i As Integer, ch As String
tmp = ""
s = ""
For i = 1 To Len(zf)
ch = Mid(zf, i, 1)
If ch >= "0" And ch <= "9" Then
ElseIf tmp <> "" Then
s = s + tmp + ","
tmp = ""
End If
Next i
Text2.Text = s
End Sub