Dim AppPath As String
        Dim AddInName As String = "addIn.dll".ToUpper
        Dim proc As Process = Process.GetCurrentProcess
        For Each ProcMod As ProcessModule In proc.Modules
            If ProcMod.ModuleName.ToUpper = AddInName Then
                AppPath = New FileInfo(ProcMod.FileName).DirectoryName
            End If
        Next