Дан массив, содержащий от 1 до k символов. Вывести этот текст в обратном порядке - VB

Private Sub Command7_Click()
List1.Clear
Dim a(), b, c As String
Dim k As Integer
Randomize
k = Int(Rnd(1) * 15 + 1)
ReDim a(1 To k + 1)
a(k + 1) = "."
For i = 1 To k
 a(i) = Chr(Int(Rnd(1) * 15 + 97))
 List1.AddItem a(i)
Next i
List1.AddItem a(k + 1)
For i = 1 To (k + 1) / 2
 c = a(i): a(i) = a(k - i + 2): a(k - i + 2) = c
Next i
For i = 1 To k + 1
 b = b + a(i)
Next i
MsgBox b
End Sub