Allora puoi provare

Print Environ$("USERPROFILE")

P.S. La Environ$("USERNAME") deve funzionare ...