VB inversione numero

[gyonny]

ciao ragazzi

ho una text e due command

devo invertire dei numeri si tratta di un numero a 8 cifre di questi 4 devono invertirsi, il terzo deve diventare sesto ecc.., esempio:

numero 12345678

deve diventare 12654378

in pratica la funzione alla pressione di command1 deve scambiare dal 3 al 6 , mentre alla pressione di command2 deve ritornare nel formato originale

qualche idea?

by
gyonny

[optime]

qualcosa del genere

   sCar3 = Mid$(sStringa, 3, 1)
   sCar6 = Mid$(sStringa, 6, 1)
   Mid$(sStringa, 3, 1) = sCar6
   Mid$(sStringa, 6, 1) = sCar3

[gyonny]

grazie optime

ora provo a completarla

[chipdb]

Penso che sia più comodo usare la funzione StrReverse già implementata in VB (al massimo fai una funzione ricorsiva apposta, non è complicata):

Left$(Text1, 2) & StrReverse(Mid$(Text1, 3, Len(Text1) - 4)) & Right$(Text1, 2)

Ciao