Exceltabelle in Visio laden

Ich muss aus einer Excel-Datei automatisch ein Visioorganigramm erstellen. Mein Quellcode sieht bis jetzt folgendermaßen aus (mit ihm öffnet sich leider nur der Assistens...):

Sub Macro5()

Dim appExcel As Object

Set appExcel = CreateObject("Visio.Application")
appExcel.Visible = True

appExcel.Application.Documents.AddEx "orgwiz_m.vst", Filename = "test.xls", visMSDefault, 0

End Sub

Vielen dank für eure Hilfe

PS: Das Organigramm soll sich vollkommen alleine erstellen