Récupération d'arguments pour SpecialFolderConstants

Bonjour,
J'ai ce petit script qui fonctionne si je le lance qu'avec la fonction et l'argument en dur
Mais dès que je veux utiliser le passage d'argument, ça plante
Pouvez-vous m'aider SVP

Public Function GetSpecialFolder(SpecialFolder)
GetSpecialFolder = CreateObject("e;e;Shell.application"e;e;).NameSpace(SpecialFolder).Self.Path
End Function

oArgs = WScript.Arguments.Named("A")
WScript.Echo oArgs ' premier argument

ssfLOCALAPPDATA = oArgs

Merci .
MsgBox GetSpecialFolder(ssfLOCALAPPDATA)