vbs dosya ile Excel'in kurulu olup olmadığını sorgulamak

[Orion1]

Merhaba
aşağıdaki kodlar ile not defteri ile vbs dosyası oluşturdum.
Amacım vbs dosya ile xls dosyasını çalıştırmak.
Önce bilgisayarda Excel kurulumu değilmi ,sorgulamak.
Kurulu değilse Excel kurulu değil diye mesaj vermek,
Kurulu ise xls dosyasını çalıştırmak.
Vbs dosyayı Excel'in kurulu olmadığı bir bilgisayarda denedim.
6ncı satırda hata verdi!Vbs dosya Excel'in kurulu olduğu bilgisayarda çalışıyor.
Excel'in kurulu olmadığı bir bilgisayarda Excel kurulu değil diye mesaj alabilmem için nası bir kod yazmalıyım?

Set WshNetwork = WScript.CreateObject("WScript.Network") 
          
         'WScript.Echo "Merhaba," & WshNetwork.UserName 
    
        Set NewXL = CreateObject("Excel.Application") 
If NewXL Is Nothing Then 
   MsgBox "Excel kurulu değil",vbcritical,"E V R E N" 
   else 

        MyWB = "C:\SAYISAL-LOTO\Sayisal-Loto.xls" 

        NewXL.Workbooks.Open MyWB 

        NewXL.Application.Run "Auto_Open" 

        'NewXL.Visible = True 

       Set NewXL = Nothing 

       Set WshNetwork = Nothing    
        
end if

 

[Haluk]

Sub MyVBS()
 On Error Resume Next
   Set NewXL = CreateObject("Excel.Application")
   If Err Then 
      MsgBox "Excel kurulu degil",vbcritical,"E V R E N" 
      Exit sub
   End If
 On Error GoTo 0
 MyWB = "C:\SAYISAL-LOTO\Sayisal-Loto.xls" 
 NewXL.Workbooks.Open MyWB 
 NewXL.Application.Run "Auto_Open" 
 NewXL.Quit
 Set NewXL = Nothing 
End Sub
Call MyVBS

 

[Orion1]

Merhabalar.
Sayın Hocam,teşekkürler ederim.İyi çalışmalar.