Solidworks PDM get selected files variable

I need to get selected files card variables in msgbox.

is it possible ?

my codes :

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 = "Minimal VB.Net Addi-in"

        poInfo.mbsCompany = "AEM"

        poInfo.mbsDescription = "Testing Only"

        poInfo.mlAddInVersion = 1

        poInfo.mlRequiredVersionMajor = 6

        poInfo.mlRequiredVersionMinor = 4

        If poVault.IsLoggedIn Then

            MsgBox("We are logged in to the  " + poVault.Name + " vault")

        Else

            MsgBox("We are not logged in to a vault")

        End If

        poCmdMgr.AddCmd(1, "Minimal VB.Net Add-in menu item")

        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

SolidworksApi/macros