PowerPoint = Microsoft.Office.Interop.PowerPoint

using Excel = Microsoft.Office.Interop.Excel;
using Access = Microsoft.Office.Interop.Access;
using Word = Microsoft.Office.Interop.Word;
using PowerPoint = Microsoft.Office.Interop.PowerPoint;

[ComVisible(false)]
    public class WordApp : HostApplicationBase<Word.Application>
    {
        public WordApp() : base("Word") { }

        public override void Run(string target)
        {
            base._application.Run(target);
        }

        protected override string GenerateFullyQualifiedName(string projectName, string moduleName, string methodName)
        {
            return string.Concat(moduleName, ".", methodName);
        }
    }

    [ComVisible(false)]
    public class PowerPointApp : HostApplicationBase<PowerPoint.Application>

                    .Where(type => type.GetInterfaces().Contains(typeof(IInspection)))
                           .Select(type =>
                           {
                               var constructor = type.GetConstructor(Type.EmptyTypes);
                               return constructor != null ? constructor.Invoke(Type.EmptyTypes) : null;
                           })
                          .Where(inspection => inspection != null)
           ...

           .Cast<IInspection>()
                          .Select(inspection => inspection.Name);

'@TestMethod
Public Sub TestMethod1() 'TODO: Rename test
    On Error GoTo TestFail

Arrange:

Act:

Assert:
    Assert.Inconclusive

TestExit:
    Exit Sub
TestFail:
    If Err.Number <> 0 Then
        Assert.Fail "Test raised an error: #" & Err.Number & " - " & Err.Description
    Else
        Resume TestExit
    End If
End Sub