[Iska]

1. Не требуете обязательного объявления переменных (Option Explicit).
2. Многократно задаёте одно и то же значение переменным (oShell, WshShell).
3. Не используете возможности WSH по работе с файловой системой, а продолжаете работать с интерперетатором команд, причём, неправильным образом (cmd.exe /C mkdir …, cmd.exe /C copy …).
4. Задаётесь на жёстко заданные пути и разрядность ОС вместо использования специальных методов (c:\Program Files (x86)), хорошо, что уже не всегда (.SpecialFolders("AllUsersDesktop")), но тем не менее.
5. Не используете конструкцию With … End With там, где есть смысл её использовать (группа команд с oShellLink'ами).
6. Используете код (вероятно, откуда-то скопированный), не вникая в его смысл (.ExpandEnvironmentStrings("c:\Program Files (x86)\MySoft\2.exe")), отчего получается бессмыслица.