Run time error "424" Необходим объект - VB

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

Private Sub Command1_Click()
Set WshShell = WScript.CreateObject("WScript.Shell")
kl = True
Do While kl
 Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name='proga.exe'")
 If colProcessList.Count = 0 Then
  WshShell.Run "C:\Progra~1\Proga.exe"
 End If
 WScript.Sleep (5000)
Loop
End Sub

------------ Пишет: Run time error "424" Необходим объект. Как исправить?

Решение задачи: «Run time error "424" Необходим объект»

textual
                            Листинг программы 
                        
                            Set WshShell = CreateObject("WScript.Shell")