gran ayuda! ordenar caracteres numericos

[LuisDark]

buenas!

lo que necesito una aplicacion que permita ordenar caracteres numericos de forma ascendente. en la cual ingrese una serie de valores y automaticamente los vaya ordenando. espero haberme explicado! y muchas gracias

[David]

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("0")
Texto = Texto & SearchNumbers("1")
Texto = Texto & SearchNumbers("2")
Texto = Texto & SearchNumbers("3")
Texto = Texto & SearchNumbers("4")
Texto = Texto & SearchNumbers("5")
Texto = Texto & SearchNumbers("6")
Texto = Texto & SearchNumbers("7")
Texto = Texto & SearchNumbers("8")
Texto = Texto & SearchNumbers("9")
Text1.Text = Texto
End Sub

Esto me funcionó de maravilla si es esto lo que quieres