Set AppVisio = CreateObject("Visio.InvisibleApp")