allora, per codificare la password puoi usare queste routines, copiale in un modulo:

'
'This module has been created to help you in coding in ASCII a string and decoding
'it in the simpliest way. This module is freeware and open source, but I pray you
'leave the name of the author and of people who worked this code.
'
'Este modulo ha sido creado para que sea màs facil de utilizar la codifica ASCII para
'una sequencia de letras en la manera la màs facil. Este codigo es gratuito y abierto,
'os pido solo que dejeis el nombre del autor e de quien ha trabajado a este codigo.
'
' the wizard - th3.w1z4rd@hotmail.com
'

Option Explicit

Private Function Number(ByVal Code As String) As String
Dim K, Char, Stringa As String
Dim I, Lung As Integer
Dim Ascii

Lung = Len(Code)

For I = 1 To Lung
K = Mid(Code, I, 1)
Select Case K
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", 0, 1, 2, 3, 4, 5, 6, 7, 8, 9:
K = K
Case Else
K = ""
End Select
Stringa = Stringa & K
Next I

Ascii = Val(Stringa)
Char = Chr(Ascii)
Number = Char

End Function

Private Function Ascii(ByVal Char As String) As String
Const A1 As String = "&#"
Const A2 As String = ";"
Dim Codice As String
Dim Code

Code = Asc(Char)
Codice = A1 & Code & A2

Ascii = Codice
End Function

Public Function Decode(ByVal Coded As String) As String
Dim I, L, Lung, H As Integer
Dim K, Finale, Medio, Prova As String

Lung = Len(Coded)
For I = 1 To Lung
K = Mid(Coded, I, 1)
If K = ";" Then 'fine del primo carattere
L = I
Medio = Mid(Coded, H, L - H + 1)
Prova = Number(Medio)
Finale = Finale & Prova
ElseIf K = "&" Then 'inizio del carattere
H = I
End If

Next I

Decode = Finale
End Function

Public Function Code(ByVal Decoded As String) As String
Dim I, Lung As Integer
Dim K, Finale, Medio As String

Lung = Len(Decoded)

For I = 1 To Lung
K = Mid(Decoded, I, 1)
Medio = Ascii(K)
Finale = Finale & Medio
Next I

Code = Finale
End Function

però a quel punto come carattere finale della psw dovresti usare un altro segno...e se modifichi un po' il codice, puoi tranquillamente separare user e psw