Hello zerodegreec,
You can return the desktop path for the logged on user easily using the Windows Script Host. This is one of several Scripting languages used by Windows that are accessible from VBA. Copy this macro into a separate VBA module.
I have incorporated the macro into your code...
Here is a complete list of the special folders that are available:
AllUsersDesktop
AllUsersStartMenu
AllUsersPrograms
AllUsersStartup
Desktop
Favorites
Fonts
MyDocuments
NetHood
PrintHood
Programs
Recent
SendTo
StartMenu
Startup
Templates
Bookmarks