Возникновение AccessViolationException VS 2017 VB.NET Windows.Forms

[Semargl1990]

При пуске следующего кода на Visual Studio 2017 VB.net Windows.Forms:

Imports Kompas6API5
Imports Kompas6Constants
Imports PARTLibClient
Imports BOSimple

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim kompas As Object
        Dim ksdoc As Object

        kompas = CreateObject("KOMPAS.Application.5")
        kompas.Visible = True


        ksdoc = kompas.Document3D
        ksdoc.Create(False, False)

        ksdoc.Filename = "C:\Users\Baha1990\Documents\Visual Studio 2017\Projects\Kompas3D\3d files\1.a3d"
        ksdoc.UpdateDocumentParam
        ksdoc.Save

        Dim aPLClient As Object

        aPLClient = CreateObject("PARTLibClient.BOSimpleProvider")
        aPLClient.Connect("Error")

        Dim ComData As Object
        ComData = aPLClient.CreateCommonDataObj

        ComData.SetFindOptions("3DSolid")

        Dim FID As Object
        Dim BID As String
        BID = "A259_151417DFF6474BF6"
        FID = ComData.FolderbyID(BID)

    End Sub

  На строке:
  FID = ComData.FolderbyID(BID)

  Вылетает ошибка:
System.AccessViolationException: "Попытка чтения или записи в защищенную память. Это часто свидетельствует о том, что другая память повреждена."

  PS. Свойство Embed Interop Types = False установлено для Partlibclient и Bosimple.
  ОС Windows 8.1, 64bit

  Как устранить эту ошибку?