Sub Main()
Dim objApp As SolidEdgeFramework.Application
Dim objDoc As SolidEdgePart.PartDocument
Dim objVariables As SolidEdgeFramework.Variables
Dim objVariable As SolidEdgeFramework.variable
Dim objVarList As Object
Dim isLinked As Boolean = False
objApp = GetObject(, "SolidEdge.Application")
objDoc = objApp.ActiveDocument
objVariables = objDoc.Variables
objVarList = objVariables.Query(pFindCriterium:="MyVar")
For Each objVariable In objVarList
MsgBox(objVariable.Name) 'This variable has an excel link
Call objVariable.HasExternalLink(isLinked) 'Does not return true
Next
End Sub