sss=InputBox("что убиваем?")
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
For Each objProc In objService.ExecQuery("SELECT * FROM Win32_Process Where Caption='notepad.exe'")
    If InStr(1, objProc.CommandLine, sss) > 0 Then
      objProc.Terminate
      exit for
    End If
Next