Public Sub KillProcess(ByVal processName As String)
On Error GoTo ErrHandler
    Dim oWMI
    Dim ret
    Dim sService
    Dim oWMIServices
    Dim oWMIService
    Dim oServices
    Dim oService
    Dim servicename
    Set oWMI = GetObject("winmgmts:")
    Set oServices = oWMI.InstancesOf("win32_process")
    For Each oService In oServices
 
    servicename = LCase(Trim(CStr(oService.Name) & ""))
 
    If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then
        ret = oService.Terminate
    End If
 
    Next
 
    Set oServices = Nothing
    Set oWMI = Nothing
 
ErrHandler:
    Err.Clear
End Sub
'# http://www.configurarequipos.com/truco450.html

    KillProcess ("WiNwOrD.exe")
    KillProcess ("winword.exe")
    KillProcess ("WINwORD.exe")

Microsoft Windows XP [Versión 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.
 
C:\Documents and Settings\Alex>start winword
C:\Documents and Settings\Alex>start WinWord
C:\Documents and Settings\Alex>start WiNwOrD
C:\Documents and Settings\Alex>