HI

I need to get the file name and one of its variable in  message box.

I managed to write to get file name but i can't get variable value.

could you please anyone help with this?

Imports EdmLib
Public Class VbAddin
    Implements IEdmAddIn5
    Public Sub GetAddInInfo(ByRef poInfo As EdmAddInInfo, poVault As IEdmVault5, poCmdMgr As IEdmCmdMgr5) Implements IEdmAddIn5.GetAddInInfo
        poInfo.mbsAddInName = "Menu command sample"
        poInfo.mbsCompany = "SOLIDWORKS Corporation"
        poInfo.mbsDescription = "Adds menu command items"
        poInfo.mlAddInVersion = 1
        poInfo.mlRequiredVersionMajor = 10
        poInfo.mlRequiredVersionMinor = 0
        poCmdMgr.AddHook(EdmCmdType.EdmCmd_PreLock)
    End Sub
    Public Sub OnCmd(ByRef poCmd As EdmCmd, ByRef ppoData As Array) Implements IEdmAddIn5.OnCmd
        Dim AffectedFile As EdmCmdData
        Dim AffectedFileNames As String = vbCrLf + vbCrLf
        Select Case poCmd.meCmdType
            Case EdmCmdType.EdmCmd_PreLock
                For Each AffectedFile In ppoData
                    AffectedFileNames += AffectedFile.mbsStrData1 + vbCrLf
                Next AffectedFile
                AffectedFileNames += vbCrLf
                Dim MsgBoxResult As MsgBoxResult
                MsgBoxResult = MsgBox("The Files Below are about to be checked out" + AffectedFileNames + "Seleted.")
            Case Else
                poCmd.mpoVault.msgbox(poCmd.mlParentWnd, "An Unknown Command type was issued.")
        End Select
    End Sub
End Class

Thanks