Merhaba. Bu kod işinizi görecektir.
Private Sub Command1_Click()
Dim Alcelect As Integer
Text2.Text = ""
For Alcelect = 1 To Len(Text1.Text)
If IsNumeric(Mid(Text1.Text, Alcelect, 1)) Then
Text2.Text = Text2.Text & Mid(Text1.Text, Alcelect, 1)
End If
Next Alcelect
End Sub