tengo un listbox que se llama SalidaList entonces quiero sacar el contenido de ese listbox (el ultimo elemento del listbox) invertir su contenido y colocarlo caracter por caracter en otro listbox (PilaList)
he intentado hacer esto... pero no funciona
Código:
Expr = StrReverse(Salidalist.List)
For k = 1 To Len(Expr)
Car = Mid(Expr, k, 1)
PilaList.List = Car
PilaList.ListCount = PilaList.ListCount + 1 'para moverse a la siguiente localidad de pila
Next k
en pocas palabras si supongo que tengoen :
SalidaList
PRUEBA
quiero que en PilaList
A
B
E
U
R
P
... lo que tampoco puedo hacer es que lo escriba en la parte de arriba de la pila si por ejemplo tenemos $ guardado en la pila lo conserve
A
B
E
U
R
P
$
lo estoy intentando con un PilaList.ListCount - 1
podrían ayudarme para saber en que me estoy equivocando