Public Sub CloseExcel(ByVal app As Excel.Application)
        Dim h As Integer = app.Hinstance
        Dim procs() As Process = Process.GetProcessesByName("EXCEL")
        Dim p As Process = Nothing
        Debug.WriteLine("INFO: Current Hinstance: " + h.ToString())
        app.Quit()
 
        For a As Integer = procs.Length - 1 To 0 Step -1
            p = procs(a)
            Try
                Debug.WriteLine("INFO: " + h.ToString + " ::: " + _
                  p.MainModule.BaseAddress.ToInt32.ToString)
                If p.MainModule.BaseAddress.ToInt32 = h Then
                    Debug.WriteLine("INFO: Close " + _
                      p.MainModule.BaseAddress.ToInt32.ToString + "..")
                    If Not p.CloseMainWindow Then
                        p.Kill()
                    End If
                End If
            Catch ex As System.ComponentModel.Win32Exception
                Debug.WriteLine(ex.ToString)
            End Try
        Next
        app = Nothing
    End Sub