Sub Command1_Click()
        '========== Variablendeklaration ====================================
        Dim Eingabe As String           'Variable für Eingabe
        Dim sTemp As String             'Variable für Buchstabentausch
        Dim i1 As Integer               'Buchstabenzeiger vorne
        Dim i2 As Integer               'Buchstabenzeiger hinten
        Dim txt() As String             'Text-Array
        '========== Programm==================================================
        Eingabe = "Informatik"          'Zuweisung Eingabe
        sTemp = Eingabe                 'Zuweisung in die temporäre Variable
                                        'sTemp für den Buchstabentausch
        i1 = 0                          'Setze den Buchstabenzeiger vorne auf 0
        i2 = Len(Trim$(Eingabe))        'Setze den Buchstabenzeiger hinten in
                                        'diesem Beispiel auf 10(=Länge Eingabe)
        ReDim Preserve txt(0)           'Dimensionierung des Array auf 1 Zelle
        txt(0) = Trim$(Eingabe)         'Schreibe in die erste Zelle des Array
                                        'das gewählte Wort(=Eingabe)
        Debug.Print txt(i1)             'Kontrolle des Schreibvorganges
        For i1 = 0 To Fix(i2 / 2) - 1   'For/next von 0 bis Wortmitte
                                        'Fix(i2 / 2)-1 = in diesem Bsp. 4
                                        'von 0 bis 4 ==> 5 * Buchstabentausch
            Mid(sTemp, i1 + 1, 1) = Mid(txt(i1), i2, 1) 'Buchstabentausch vorne
            Mid(sTemp, i2, 1) = Mid(txt(i1), i1 + 1, 1) 'Buchstabentausch hinten
            ReDim Preserve txt(i1 + 1)  'Neudimensionierung des Array i1+1
                                        'durch Preserve ohne Speicherverlust
            txt(i1 + 1) = sTemp         'Schreibe den neuen Wert der Var. sTemp
                                        'in die nächste Zelle des Array
            i2 = i2 - 1                 'Verringere den Buchstabenzeiger hinten
                                        'um 1
            Debug.Print txt(i1 + 1)     'Kontrolle des Schreibvorganges
        Next i1                         'Erhöhe den Buchstabenzeiger vorne um 1
    End Sub