[vba] tradurre vb in vba

[luisa227]

Inespertissima.
Devo tradurre il seguente codice (creato con VB5) in VBA. Mi dareste una mano per cortesia su tradurre queste 2 stringhe? grazie
b = Asc(Mid$(pass, A, 1))

Mid$(strg, I, 1) = Chr$(Asc(Mid$(strg, I, 1)) Xor b)

Sub crypt(pass, strg)
  A = 1
  For I = 1 To Len(strg)
     b = Asc(Mid$(pass, A, 1))
     A = A + 1
     If A > Len(pass) Then A = 1
     Mid$(strg, I, 1) = Chr$(Asc(Mid$(strg, I, 1)) Xor b)
  Next
End Sub

NULLA- HO RISOLTO LEVANDO IL $