Private Sub Comd1_Click()
Dim i As Integer, j As Integer, n As Integer
Dim ch As String, s As String, ss As String
s = Text1.Text
n = 0: ss = ""
i = 1
Do While i <= Len(s)
If ch >= "0" And ch <= "9" Then
Else
For j = 1 To n
ss = ss + ch
Next j
n = 0
End If
Loop
Text2.Text = ss
End Sub