heres one way manipulating the string
Dim x As Byte, mystr As String
mystr = "adcde"
For x = 1 To 5
Debug.Print mystr
mystr = Mid(mystr, x + 1, 1) & Left(mystr, x) & Right(mystr, Abs((Len(mystr) - (x + 1))))
Next
could do something similar using replace function and instr