Dim letter As Char
        Dim strCode As String = 500
        Dim i, charsInFile, Code As Short
 
        SaveFileDialog1.Filter = "Textdateien (*.txt)|*.txt"
        SaveFileDialog1.ShowDialog()
        If SaveFileDialog1.FileName <> "" Then
 
            Code = CShort(strCode)
            charsInFile = txtNote.Text.Length
            FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
            For i = 0 To charsInFile - 1
                letter = txtNote.Text.Substring(i, 1)
                'In Zahl umwandeln, dann mit XOR verschlüsseln
                Print(1, Asc(letter) Xor Code) 'und in Datei speichern
            Next
            FileClose(1)
 
        End If

 Dim ch As Char
        Dim strCode As String = 500
        Dim Code, Number As Short
        Dim Decrypt As String = ""
 
        OpenFileDialog1.Filter = "Textdateien (*.TXT)|*.TXT"
        OpenFileDialog1.ShowDialog() 'Dialogfeld Öffnen anzeigen
        If OpenFileDialog1.FileName <> "" Then
            Try
 
                Code = CShort(strCode)
                FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
                Do Until EOF(1) 'Zeilen aus der Datei lesen
                    Input(1, Number) 'Verschlüsselte Zahlen lesen
                    ch = Chr(Number Xor Code) 'Mit Xor umwandeln
                    Decrypt = Decrypt & ch 'Zeichenfolge erstellen
                Loop
                txtNote.Text = Decrypt 'Umgewandelte Zeichenfolge anzeigen
                txtNote.Select(1, 0)   'Textauswahl aufheben
                txtNote.Enabled = True 'Textcursor aktivieren
 
            Catch
                MsgBox("Fehler beim Öffnen der Datei.")
            Finally
                FileClose(1) 'Datei schließen
            End Try
        End If