I am unable to retain the position of a punctuation in the text while performing Cambridge Transposition (which scrambles every word in the string except the first and last). The reference code is:
Sub v(strText)
m = 1: Z = Split(strText, " "): j = UBound(Z)
For u = 0 To j
t =...