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
        Next
    End Sub