Как сделать сохранение пароля для программы.

TextBox1.Enabled = False

TextBox1.Enabled = True

Public Class Form1
    Private n As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If CheckBox1.Checked Then
            Encrypt("C:\Pass.txt", TextBox2.Text)
            Encrypt("C:\Pas.txt", TextBox1.Text)
        End If
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Введите логин или пароль")
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If CheckBox1.Checked Then
            TextBox1.Text = Decrypt("C:\Pas.txt")
            TextBox2.Text = Decrypt("C:\Pass.txt")
        End If
    End Sub
End Class

Decrypt = SReader.ReadToEnd()

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            If CheckBox1.Checked Then
                TextBox1.Text = Decrypt("C:\Pas.txt")
                TextBox2.Text = Decrypt("C:\Pass.txt")
            End If
        Catch ex As Exception
            TextBox1.Text = "Введите Ваш логин"
            TextBox2.Text = "Введите Ваш пароль"
        End Try
    End Sub