Olá!, você precisa “executa” que Sub, ou remove o OpenFile secundário e termina linhas secundárias, e provavelmente igualmente você não precisa as citações extra.
Ajustar o objShell = o WScript.CreateObject (“Wscript.Shell”)
thinapp = “\ \ usuário \ apps$ \ escola \ PSP8 \ loja pintura pro 8.exe do jasc”
thinapp de objShell.Run, 1, falso
Considerações,
Roubo.