Originariamente inviata da giustavalla 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.
Dim C As Integer For C = 1 To Len(PswFTP) Debug.Print C, Mid$(PswFTP, C, 1), Asc(Mid$(PswFTP, C, 1)) Next C
No MP tecnici (non rispondo nemmeno!), usa il forum.
Regole del Forum