怎么获得当前用户目录的路径

如何获得当前用户目录的路径？
假如用户名为：username

那么应该得到的值应该是：C:\Documents And Settings\username

请问如何得到？谢谢大家！

[解决办法]
MsgBox Environ("userprofile")