Quote Originariamente inviata da giustavalla Visualizza il messaggio
Non viene evidenziato niente di anomalo
codice:
   Dim C As Integer
   For C = 1 To Len(PswFTP)
      Debug.Print C, Mid$(PswFTP, C, 1), Asc(Mid$(PswFTP, C, 1))
   Next C
Sicuramente c'è un errore (e magari banale), ma così non ti si può dire molto altro ...

Se vuoi postare uno zip da poter scaricare per provare di persona, magari si arriva facilmente a risolvere il mistero.