Dim charinput As Char
        Dim charoutput As Char
        Dim eingabe() As Char
        Dim schluesselwort() As Char
        Dim i As Integer
        Dim pfadneu As String
 
        schluesselwort = txtschluessel.Text.ToCharArray
 
        FileOpen(1, pfad, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
        pfadneu = DirListBox1.Path & "Verschl" & FileListBox1.FileName
        FileOpen(2, pfadneu, OpenMode.Binary, OpenAccess.Write, _
          OpenShare.LockWrite)
        i = 0
 
        While Not EOF(1)
            Input(1, charinput)
            charoutput = ChrW(AscW(charinput) Xor AscW(schluesselwort(i Mod ( _
              schluesselwort.Length))))
            Write(2, charoutput.ToString())
        End While
 
        FileClose(1)
        FileClose(2)
 
        MsgBox("Erfolgreich beendet", MsgBoxStyle.Information, "Verschlüsseln")