入力した文字を逆から出力するには

Question

言葉を逆から出力されるプログラムを作りたいです。例えば、「あいうえお」と入力されれば「おえういあ」と出力されるものです。一文字ずつ出力されるプログラムはかけたのですが、全部を出力するにはどうすればよいでしょうか？よろしくお願いします。

Sub a()
Dim mozi, b As String
Dim a As Integer
mozi = InputBox("文字列")

a = Len(mozi)

For i = 0 To a - 1 Step 1
 b = Mid(mozi, a - i, 1)
 MsgBox (b)
Next i

End Sub

Answer 1

いかのようにしてください。

Sub a()
Dim mozi, b As String
Dim a As Integer
mozi = InputBox("文字列")

a = Len(mozi)
For i = 0 To a - 1 Step 1
 b = b & Mid(mozi, a - i, 1)
Next i
MsgBox (b)

End Sub