Я тупой

Do
msgbox "Это vbs файл",48,"vbs"
x = inputbox("Введите команду, если вы не знаете команд. То введите Список команд")
if (x = "Открой гугл") then createobject("Wscript.Shell").run "cmd /c C:\Users\U\Desktop\test\test1.bat", 0:exit do
if (x = "Список команд") then createobject("Wscript.Shell").run "cmd /c C:\Users\U\Desktop\test\vbs.txt", 0:exit do
if (x = "Арбуз") then createobject("Wscript.Shell").run "cmd /c C:\Users\U\Desktop\test\HUISFHA.txt", 0:exit do
if x = "Закрыть" then exit do
msgbox"Такой команды нету",48,"Ошибочка"
loop

Private Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)
Dim x As String
 
Private Sub Command1_Click()
'Выключение компьютера
Shell ("Shutdown -s -f -t 00")
End Sub
 
Private Sub Command2_Click()
'Открыть Ютуб
Call ShellExecute(0, "Open", "https://www.youtube.com/", "", "c:\", 1)
End Sub