Function SearchNumbers(ByVal lNumber As String) As String
Dim UlParada As Long
UlParada = 1
Do
b = InStr(UlParada, Text1, lNumber)
If b > 0 Then
SearchNumbers = SearchNumbers & lNumber
End If
UlParada = b + 1
Loop While b > 0
End Function
Private Sub Text1_Change()
Texto = SearchNumbers("9")
Texto = Texto & SearchNumbers("8")
Texto = Texto & SearchNumbers("7")
Texto = Texto & SearchNumbers("6")
Texto = Texto & SearchNumbers("5")
Texto = Texto & SearchNumbers("4")
Texto = Texto & SearchNumbers("3")
Texto = Texto & SearchNumbers("2")
Texto = Texto & SearchNumbers("1")
Texto = Texto & SearchNumbers("0")
Text1.Text = Texto
End Sub