VBALink	; Link met VBA
 
Link(FilePath)
 Do STORE^vhTERMINA()
 Set FP=1801
 Write @F,@F1
 Set FP=2007
 Write @F,"TOOLS\SHELLEXECUTE"
 Set FP=2101
 Write @F
 Write FilePath
 Set FP=2001
 Write @F,"VBA:\\"
 Do REFRESH^vhTERMINA()