Call TerminateProcess ("notepad.exe")

Sub TerminateProcess(app_exe)
    Dim Process
    For Each Process In GetObject("winmgmts:").ExecQuery _
    ("Select Name from Win32_Process Where Name = '" & app_exe & "'")
        Process.Terminate
    Next
End Sub