[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 $

[oregon]

Non credo ci sia molto da tradurre ...

Hai già provato ed hai avuto errori?

P.S. VBA per quale prodotto?

[luisa227]

Originariamente inviato da oregon
Non credo ci sia molto da tradurre ...

Hai già provato ed hai avuto errori?

P.S. VBA per quale prodotto?

scusa non sono riuscita ad eliminare il post. ho risolto levando i $, grazie.
vba x office

[oregon]

Originariamente inviato da luisa227
scusa non sono riuscita ad eliminare il post. ho risolto levando i $, grazie.

Infatti ... quando dicevo "non credo ci sia molto" intendevo solo i $ ...

vba x office

Sì ... volevo sapere "quale" prodotto di Office ma non importa ...