Расшифровать/зашифровать пароль в текстовый файл

Imports System.Security.Cryptography
Imports System.Text

Function MD5Hash(ByVal text As String) As String
        Using md5 As System.Security.Cryptography.MD5 = System.Security.Cryptography.MD5.Create()
            Dim retVal() As Byte = md5.ComputeHash(Encoding.Unicode.GetBytes(text))
            Dim sb As New StringBuilder()
            For i As Integer = 0 To retVal.Length - 1
                sb.Append(retVal(i).ToString("x2"))
            Next i
            Return sb.ToString
        End Using
    End Function

 IO.File.WriteAllText(Application.StartupPath & "\ps.txt", MD5Hash(TextBox1.Text)) 'запишем хеш пароля в файл

 If MD5Hash(TextBox1.Text) = IO.File.ReadAllText(Application.StartupPath & "\ps.txt") Then 'сравним хеш пароля с содержимым файла
            MsgBox("Пароль верен")
        Else
            MsgBox("Пароль не верен")
        End If
    End Sub