Public Class Test
    ' NX 9.0.3.4
    'Journal zum 

    Option Strict Off
    Imports System
    Imports NXOpen

    Module NXJournal
        Sub Main(ByVal args() As String)

            Dim theSession As Session = Session.GetSession()
            Dim workPart As Part = theSession.Parts.Work

            Dim displayPart As Part = theSession.Parts.Display

            'theSession.Preferences.Modeling.UpdatePending = False

            'Dim markId1 As Session.UndoMarkId
            'markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Expression")

            Dim expModified1 As Boolean
            Dim errorMessages1() As String


            'workPart.Expressions.ImportFromFile("M:\UG\NX12_NXTC\global\06_ENGEL_NX_CUSTOMIZING\Blech\blech - Vorschlag_Eugen.exp", ExpressionCollection.ImportMode.Replace, expModified1, errorMessages1)

            Dim sheetMetalExpressionsValue As String
            sheetMetalExpressionsValue = theSession.GetEnvironmentVariableValue("NX_SERVER_DIR") + "\global\06_ENGEL_NX_CUSTOMIZING\Blech\blech_Vorschlag_Eugen.exp"
            System.Windows.Forms.MessageBox.Show("Expressions Value: " + sheetMetalExpressionsValue)
            workPart.Expressions.ImportFromFile(sheetMetalExpressionsValue, ExpressionCollection.ImportMode.Replace, expModified1, errorMessages1)

            theSession.Preferences.Modeling.UpdatePending = False

            'Dim nErrs1 As Integer
            'nErrs1 = theSession.UpdateManager.DoUpdate(markId1)

        End Sub
    End Module
End Class