Visio Links Export, maybe vba ?

[Jamfool]

Is there a way to export the links between the tables? maybe via vba?

I would like an exported datafile to show

Table at start of link, table at end of link
columns linked (in definition section)
Name of the link (physical name)

so an example would be

client,orders,orderno-orderno,client_order_fk

(I have used the 'Object Relational' stencil)