Dim o As Object = CreateObject("WScript.Shell") MsgBox(o.SpecialFolders("AllUsersDesktop")) MsgBox(o.SpecialFolders("AllUsersStartMenu")) System.Runtime.InteropServices.Marshal.ReleaseComObject(o)