Sub Command1_Click()
        Dim Eingabe As String
        Dim sTemp As String
        Dim i1 As Integer
        Dim i2 As Integer
        Dim txt() As String
        Eingabe = "Informatik"
        sTemp = Eingabe
        i1 = 0
        i2 = Len(Trim$(Eingabe))
        ReDim Preserve txt(0)
        txt(0) = Trim$(Eingabe)
        Debug.Print txt(i1)
        For i1 = 0 To Fix(i2 / 2) - 1
            Mid(sTemp, i1 + 1, 1) = Mid(txt(i1), i2, 1)
            Mid(sTemp, i2, 1) = Mid(txt(i1), i1 + 1, 1)
            ReDim Preserve txt(i1 + 1)
            txt(i1 + 1) = sTemp
            i2 = i2 - 1
            Debug.Print txt(i1 + 1)
        Next i1
    End Sub