Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objService = objWMIService.ExecQuery("select * from Win32_BaseService where Name='MyService'")
For Each x in objService
  MsgBox x.Delete
Next