cambiaquesta riga

directory = ("" & App.Path & "") + "zanna.x86"

così

directory = app.path & "\zanna.x86"