'Ecco fatto:

stringa = "ciao"

For k = 1 To Len(stringa)
reverse = reverse & Left(Right(stringa, k), 1)
Next

MsgBox reverse