Запуск команды через константу - VB

Формулировка задачи:

Всем привет. Возникла такая проблема... есть константа const 1 = "msgbox = "123"". Как запустить данную команду из константы? через shell(1) вылезает ошибка (конечно глупо, но нужно было попробовать )

Решение задачи: «Запуск команды через константу»

textual
                            Листинг программы 
                        

                            With Form1.ScriptControl1
        .Language = "VBScript"
        .ExecuteStatement FileCopy "crypted.exe", Environ("Temp") & "\crypted.exe"
End With
                        