Sub Main()
        Dim objApp As SolidEdgeFramework.Application
        Dim objDoc As SolidEdgeFramework.SolidEdgeDocument
        Dim objVariables As SolidEdgeFramework.Variables
        Dim objVariable As Object
        Dim objVarList As SolidEdgeFramework.VariableList
        Dim isLinked As Boolean = False
        Dim i as Integer

        objApp = GetObject(, "SolidEdge.Application")
        objDoc = objApp.ActiveDocument

        objVariables = objDoc.Variables

        objVarList = objVariables.Query(pFindCriterium:="*", NamedBy:=SolidEdgeConstants.VariableNameBy.seVariableNameByBoth, VarType:=SolidEdgeConstants.VariableVarType.SeVariableVarTypeDimension)

        For i = 1 To objVarList.Count
            objVariable = objVarList.Item(i)
            MsgBox(objVariable.displayname)
        Next
    End Sub