GTO, You are totally right. I added a path separator and it worked.
ToPath = tempPath & "Documents and Settings" & "\" & tempUser & "\" & "Desktop" & "\" & FolderName & "\"
Thanks.