Public Function EncRec(strPW As String)
Dim strTmp As String
Dim i As Integer
For i = 1 To Len(strPW)
strTmp = Mid(strPW, i, 1)
If Not Asc(strTmp) Mod 2 = 0 Then
strTmp = Chr(Asc(strTmp) - 1)
Else
strTmp = Chr(Asc(strTmp) + 1)
End If
EncRec = EncRec & strTmp
Next
End Function