Option Explicit
' määritellään kaksi dynaamista taulukkoa
Dim taulu() As String
Dim uusi() As String
' määritellään muut tarvittavat muuttujat
Dim pituus As Integer
Dim i As Integer
Dim uusisana As String
Dim merkki As String
Dim sana As String

Private Sub CmdKaanna_Click()
sana = Text1.Text
' otetaan merkkijonon pituus talteen
pituus = Len(sana)
' määritellään taulukot uudelleen oikean pituisiksi
ReDim taulu(1 To pituus) As String
ReDim uusi(1 To pituus) As String

' poimitaan merkkijonosta merkki kerrallaan taulukkoon
For i = 1 To pituus
    merkki = Mid(sana, i, 1)
    ' viedään merkki taulukkoon (toisen alkuun ja toisen loppuun)
    taulu(i) = merkki
    uusi(pituus - i + 1) = merkki
Next i
' testataan print-komennolla toimivuus
For i = 1 To pituus
    Print taulu(i)
Next i
Print ""
For i = 1 To pituus
    Print uusi(i)
Next i
uusisana = ""
For i = 1 To pituus
End Sub