qualcosa del genere

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