Found the secret via google.

Instead of...

CreateObject("VISIO.Application")

use

CreateObject("VISIO.InvisibleApp")

This fixes the Visio showing for a second. Now just have to figure out how to get the console from showing the file name everytime a file is opened.