Hi, I has the following codes to encrypte the password user enter:

Code:
    Public Function fnEncrypt(ByVal sString As String, ByVal lLEn As Long) As String
        Dim I As Long
        Dim NewChar As Long
        I = 1
        Do Until I = lLEn + 1
            NewChar = Asc(Mid(sString, I, 1))
            NewChar = ((NewChar - 32 + 13) Mod 95) + 32     'avaible keyboard from ASCII 32 to 126
            fnEncrypt = fnEncrypt + Chr(NewChar)
            I = I + 1
        Loop
        Return fnEncrypt
    End Function
For eg. User enter 123456, the password will be encrypte become >?@ABC.

How can I write my codes to decode it from >?@ABC become 123456?