[VB6] Errore password non valida su collegamento FTP

[optime]

per essere strasicuri

Dim X                     As Long
Dim Temp                As String * 200
X = GetPrivateProfileString("GiudiziWeb", "PswFTP", "", Temp, Len(Temp), NomeFileIni)
If X > 0 Then PswFTP = Left$(Temp, X)
ITC.Password = PswFTP
' --------------------------------------
myPsw = "ABCDEFGH22!"
IF ITC.Password <> myPsw THEN STOP
' --------------------------------------

se si ferma, c'è qualcosa che non va