Aqui te dejo la funcion que se encarga de finalizar un proceso.
Acostumbrate a buscar, este codigo anda por la red desde hace buen tiempo...
Consulta a google, la biblioteca de codigos, el buscador interno del foro...
Public Sub KillProcess(ByVal processName As String)
'---CAPTURA DE ERROR---
On Error GoTo ErrHandler
'----------------------
'---DECLARACIÓN DE VARIABLES---
Dim oWMI
Dim ret
Dim sService
Dim oWMIServices
Dim oWMIService
Dim oServices
Dim oService
Dim servicename
'------------------------------
'--------------------SE OBTIENEN OBJETOS--------------------
Set oWMI = GetObject("winmgmts:")
Set oServices = oWMI.InstancesOf("win32_process")
'-----------------------------------------------------------
'----------------------BUSCA EL PROCESO---------------------
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
'-----------------------------------------------------------
'---------SE HACE NADA---------
Set oServices = Nothing
Set oWMI = Nothing
'------------------------------
'---CAPTURA DE ERROR----
ErrHandler:
Err.Clear
'-----------------------
End Sub