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