Public Function ExitProcessByName(ByVal strProcessName As String) As String
On Error GoTo myerr
Dim proc32Inst As PROCESSENTRY32
Dim returnValue As Long
Dim temRtValue As Long
Dim Proc32AllName As String
Dim Proc32Name As String
Dim PID As Integer
Dim mProcID As Long
Dim i As Integer
Dim j As Long
