Copy variable when check out files - PDM API

Hi,

I'm creating an Add-in to copy variable when check out files. I don't know where I'm Doing mistake. Its getting an error.

Could you please check and let me know what is the issue?

Imports EdmLib

Public Class Class1

    Implements IEdmAddIn5

    Public Sub GetAddInInfo(ByRef poInfo As EdmAddInInfo, poVault As IEdmVault5, poCmdMgr As IEdmCmdMgr5) Implements IEdmAddIn5.GetAddInInfo

        poInfo.mbsAddInName = "Update old Revision"

        poInfo.mbsCompany = "test"

        poInfo.mbsDescription = "Update old Revision"

        poInfo.mlAddInVersion = 1

        poInfo.mlRequiredVersionMajor = 10

        poInfo.mlRequiredVersionMinor = 0

        poCmdMgr.AddHook(EdmCmdType.EdmCmd_PostLock)

    End Sub

    Public Sub OnCmd(ByRef poCmd As EdmCmd, ByRef ppoData As Array) Implements IEdmAddIn5.OnCmd

        Dim AffectedFile As EdmCmdData

        Select Case poCmd.meCmdType

            Case EdmCmdType.EdmCmd_PostLock

                Dim myVault As IEdmVault12 = CType(poCmd.mpoVault, IEdmVault12)

                Dim Inc_RevA As Integer

                Dim Cur_RevA As Integer

                For Each AffectedFile In ppoData

                    Dim myfile As IEdmFile5 = myVault.GetFileFromPath(AffectedFile.mbsStrData1)

                    Dim myvars As IEdmEnumeratorVariable10 = Nothing

                    myvars = CType(myfile.GetEnumeratorVariable(), IEdmEnumeratorVariable10)

                    myvars.GetVar("A", "@", Cur_RevA)

                    MsgBox(Cur_RevA)

                    myvars.SetVar("B", "@", Inc_RevA)

                    myvars.CloseFile(True)

                Next

        End Select

    End Sub

End Class

Thanks

SolidworksApi/macros