VB 6.0 - how to detect an open program(e g WINWORD)

Hi there!!!!
    Could anybody give me a tip on how can i identify a running program(e.g winword; games) using visual basic? and how to close it safely?  your help would be appreciated a lot. Thanks

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
KillProcess "excel"

serviceame = LCase(Trim(CStr(oService.Name) & ""))

Here Servicename was typed as "serviceame".  Due to this error I was 
unable to get the result.  

Thank you so much for your code and congratulations.

Krishnadas

We were in mess of API's close an exe.

Many Thanks for great piece of code..  

I have code that can leave an orphaned ref to Excel, as seen in Task Manager processes.

When next running the code this would generate err = 70 'Permission to Kill file is denied'.

Your code cleans this issue nicely.

Many thanks

Russ