mmmm ok gracias por la ayuda tratare de hacerlo. aunque a mi me hubiera gustado nadamas hacerlo en un solo textbox. 
A ver como dice mollense, por hacer se puede hacer, la cuestión es si lo quieres hacer así porque debe ser así, si lo quieres hacer así sólo por cabezonería tuya, o por desconocimiento de como será más adecuado.
Para entender que es lo 'correcto' se debe saber que un textbox ha sido diseñado para albergar un 'elemento', por tanto si tu quieres meter más de un elemento en un textbox, entonces diremos que sigues el razonamiento 'cabezón' lo quieres hacer porque te da la gana, si has de meter más de un elemento pero no te emperras en meterlo en un solo textbox entonces te diremos que para eso existe el listbox, para tratar más de un elemento.
En cambio si sigue siendo un sólo elemento que necesitas dividir en varias partes trabajar sobre las partes y volverlas a unir (si lo último no se cumple volveríamos al listbox), entonces si sería adecuado el textbox, ya que en origen y en destino son un único elemento. Si es este el caso debes cortar el elemento en sus partes e introducirlas en un array luego quitas, añades, ordenas y finalmente vuelves a unir...
por ejemplo: sean 2 textbox uno sólo tiene cifras del 0-9 es decir se consideran cifra a cifra el 2º textbox tiene cualquier cifra, pero las cifras están separadas entre si por un guión(ú otro carácter), en el ejemplo disgregaremos los minielementos, los ordenaremos y los volveremos a reintegrar en sus textbox
private sub TrabajarlosTextbox() as
textbox1.text= Operar_Texto(textbox1.text,"") ' textbox1 no tiene separador entre sus elementos, se consideran uno a uno
textbox2.text= Operar_Texto(textbox2.text,"-")
end sub
' distribuye los subelementos de un texto sobre una matriz, los ordena y los vuelve a reunir (sin separador)
private function Operar_Texto(texto as string, separador as string) as string
dim elementos() as string
if separador <>"" then ' cuando hay un separador, este actúa como lo que se ha indicado.
elementos= split(texto,separador)
else
redim elementos(0 to len(texto) -1)
for k= 1 to len(texto)
elementos(k-1)= mid$(texto,k,1)
next k
end if
array.sort(elementos)
return string.concat(elementos)
end function
Nota que al volver a reunir el array (concatenar sus elementos) no se incluye separador, eso queda como ejercicio para ti...
p.d.: veo raro los colores de visual basic....
