C'est bon j'ai trouvé !
il fallait faire :
ModuleLogin.currentLogin = txtLogin.Value
au lieu de :
currentLogin = txtLogin.Value

Merci beaucoup en tout cas pour m'avoir aidé.

Cordialement