I need to get selected files card variables in msgbox.

is it possible ?

my codes :

<p>Imports EdmLib</p><p></p><p></p><p>Public Class VbAddin</p><p></p><p></p><p>    Implements IEdmAddIn5</p><p></p><p></p><p></p><p></p><p></p><p></p><p>    Public Sub GetAddInInfo(ByRef poInfo As EdmAddInInfo, poVault As IEdmVault5, poCmdMgr As IEdmCmdMgr5) Implements IEdmAddIn5.GetAddInInfo</p><p></p><p></p><p>        poInfo.mbsAddInName = "Minimal VB.Net Addi-in"</p><p>        poInfo.mbsCompany = "AEM"</p><p>        poInfo.mbsDescription = "Testing Only"</p><p>        poInfo.mlAddInVersion = 1</p><p>        poInfo.mlRequiredVersionMajor = 6</p><p>        poInfo.mlRequiredVersionMinor = 4</p><p></p><p></p><p>        If poVault.IsLoggedIn Then</p><p>            MsgBox("We are logged in to the  " + poVault.Name + " vault")</p><p>        Else</p><p>            MsgBox("We are not logged in to a vault")</p><p>        End If</p><p></p><p></p><p>        poCmdMgr.AddCmd(1, "Minimal VB.Net Add-in menu item")</p><p>        poCmdMgr.AddHook(EdmCmdType.EdmCmd_PreLock)</p><p></p><p></p><p>    End Sub</p><p></p><p></p><p>    Public Sub OnCmd(ByRef poCmd As EdmCmd, ByRef ppoData As Array) Implements IEdmAddIn5.OnCmd</p><p>        </p><p>        Dim AffectedFile As EdmCmdData</p><p>        Dim AffectedFileNames As String = vbCrLf + vbCrLf</p><p></p><p></p><p>        Select Case poCmd.meCmdType</p><p></p><p></p><p>            Case EdmCmdType.EdmCmd_PreLock</p><p></p><p></p><p>                For Each AffectedFile In ppoData</p><p>                    AffectedFileNames += AffectedFile.mbsStrData1 + vbCrLf</p><p>                Next AffectedFile</p><p>                AffectedFileNames += vbCrLf</p><p>                Dim MsgBoxResult As MsgBoxResult</p><p></p><p></p><p>                MsgBoxResult = MsgBox("The Files Below are about to be checked out" + AffectedFileNames + "Seleted.")</p><p></p><p></p><p>            Case Else</p><p>                poCmd.mpoVault.msgbox(poCmd.mlParentWnd, "An Unknown Command type was issued.")</p><p>        End Select</p><p></p><p></p><p>    End Sub</p><p>End Class</p>

Thanks