Private Function EncryptString(s As String) As String
EncryptPassword = ""
Dim c As Integer
c = Len(s)
Do While c > 0
EncryptPassword = EncryptPassword + Str(Asc(Mid(s, c, 1))) 'Get the current letter from the string and convert it to ascii then write that number explicitly.
c = c - 1
Loop
End Function
Public Function DecryptString(s As String) As String
DecryptPassword = ""
Dim c As Integer
Dim r() As String
Dim t As String
Dim u As String
Dim p As String