Any idea why my code below keeps faulting out saying CopyTreeOptions cannot be passed byval?

Dim pdmVault As IEdmVault5
Dim pdmVault19 As IEdmVault19

Sub Main()
   Set pdmVault = New EdmVault5
   pdmVault.LoginAuto "XXXXXXXXX", 0

   Dim Folder As IEdmFolder9
   Set Folder = pdmVault.RootFolder
   Set pdmVault19 = pdmVault

   ' Destination Folder
   Dim destFolder As String
   destFolder = "C:\Test Files\Location Move to"
Set