Encrypt value

Some confidental information as password, mostly need to be encrypted. Here I have a simple coding in VB 2005. To decrypt, just need to make the same code with encrypt, then change to it's opposition code. If in encrypt using *2 (times 2), then in decrypt using /2 (divided by 2). Here is an example of encrypt code. Try it yourself...

----------------------------------------------------------------------------------
For i = 1 To Len(Password)
Result = Result & Chr(Asc(Mid(Password, i, 1)) * 2)
Next
----------------------------------------------------------------------------------