如果壹定要用循環的話,就用以下方法
Dim Str1 As String, Str2 As String, I As Long
'Str1為待轉換字符串
For I = Len(Str1) To 1 Step -1
Str2 = Str2 + Mid(Str1, I, 1)
Next
'把Str1倒敘排列並保存在Str2裏了