Import assembly from excel/text file 2

Option Strict Off
Imports System
Imports System.IO
Imports System.Windows.Forms
Imports NXOpen

Module Module1

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

    Sub Main()

        If theSession.Parts.Display Is Nothing Then
            MsgBox("Active part required")
            Exit Sub
        End If

        Dim openFileDialog1 As New OpenFileDialog()

        openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        openFileDialog1.FilterIndex = 1
        openFileDialog1.RestoreDirectory = True

        If openFileDialog1.ShowDialog() = DialogResult.OK Then
            Dim line As String

            Using sr As StreamReader = New StreamReader(openFileDialog1.FileName)
                Try
                    line = sr.ReadLine()
                    While Not line Is Nothing
                        If File.Exists(line) Then
                            Dim componentName As String = Path.GetFileNameWithoutExtension(line).ToUpper
                            AddComponent(line, "", componentName)
                        End If
                        line = sr.ReadLine()
                    End While
                Catch E As Exception
                    MessageBox.Show(E.Message)
                End Try
            End Using
        End If

    End Sub

    Sub AddComponent(ByVal compPath As String, ByVal refSet As String, Optional ByVal compName As String = Nothing)

        Dim markId1 As Session.UndoMarkId
        markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Add Component")

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

        Dim basePoint1 As Point3d = New Point3d(0.0, 0.0, 0.0)
        Dim orientation1 As Matrix3x3
        orientation1.Xx = 1.0
        orientation1.Xy = 0.0
        orientation1.Xz = 0.0
        orientation1.Yx = 0.0
        orientation1.Yy = 1.0
        orientation1.Yz = 0.0
        orientation1.Zx = 0.0
        orientation1.Zy = 0.0
        orientation1.Zz = 1.0
        Dim partLoadStatus1 As PartLoadStatus
        Dim component1 As Assemblies.Component
        component1 = workPart.ComponentAssembly.AddComponent(compPath, refSet, compName, basePoint1, orientation1, 1, partLoadStatus1, True)

        partLoadStatus1.Dispose()

    End Sub

    Public Function GetUnloadOption(ByVal dummy As String) As Integer

        'Unloads the image when the NX session terminates
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

    End Function

End Module