→→→右詰

Dim R(14) As String
Dim W(14) As String
Dim WW As String
Dim ans As String
Dim max, i, j As String
R(1) = "1"
R(2) = "2"
R(3) = "う"

ans = String.Concat(R(1)) & String.Concat(R(2)) & String.Concat(R(3))
max = Microsoft.VisualBasic.Len(ans)

For j = 14 To 0 Step  - 1
     If  max < 0  Then
           w(j) = "  "
     Else
           w(j) = R(max)
           max = max - 1
     End If
Next
For i = 0  To 14
     WW = WW & Strting.Concat( W(i) )
Next
MsgBox( WW )