Kód: Vybrať všetko

 Dim písmeno As Char
        Dim ŘetězecSKódem As String
        Dim i, ZnakůVSouboru, Kód As Short
        Dim DataKZápisu As StreamWriter = Nothing

        SaveFileDialog1.Filter = "Textové soubory (*.txt)|*.txt"
        If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
            Try
                ŘetězecSKódem = InputBox("Zadejte šifrovací kód")
                If ŘetězecSKódem = "" Then Exit Sub 'pokud uživatel klepne na Storno
                'ulož text s šifrovacím schématem
                Kód = CShort(ŘetězecSKódem)
                ZnakůVSouboru = txtPoznámka.Text.Length
                DataKZápisu = My.Computer.FileSystem.OpenTextFileWriter( _
                   SaveFileDialog1.FileName, False)
                For i = 0 To ZnakůVSouboru - 1
                    písmeno = txtPoznámka.Text.Substring(i, 1)
                    'funkcí Asc převeď na číslo, pak operátorem Xor zašifruj
                    DataKZápisu.Write(Asc(písmeno) Xor Kód) 'a ulož do souboru
                    'odděl čísla mezerou
                    DataKZápisu.Write(" ")
                Next
                mnuZavřít.Enabled = True
            Catch ex As Exception
                MsgBox("Došlo k nějaké chybě." & vbCrLf & ex.Message)
            Finally
                If DataKZápisu IsNot Nothing Then
                    DataKZápisu.Close()
                End If
            End Try
        End If