Resolví el problema. El problema era con las señales DTR y RTS. 
En la mayoría de los convertidores de USB a serie, estas señales no se activan automáticamente. 


Así que si podemos cambiarlo mientras enviamos datos en el puerto. 

El problema se puede resolver 


con Port2 
.DTREnable = False 
.RTSEnable = True 
End con 

**** Enviar datos 

con Port2 
.RTSEnable = False 
.DTREnable = True 
End con 

PAGOS:
--------
id
idcliente
idinmueble
fdpaga (fechadepago)
fdvence
monto
paga
debe
aumento (boolean)

INMUEBLES;
-------------
id
nombre
direccion
piso
depto-of

CONTRATOS;
-------------
id
montoinicial
fechadealta
fechavence
porcentajedeaumento
tiempoaumento

    'Variable de tipo FILE y FOLDER para listar los archivos de un path
    Dim El_Archivo As File
    Dim El_Directorio As Folder

    'Si no hay items en el List sale
    If List1.ListIndex = -1 Then Exit Sub
    
    List2.Clear
    
    'Nuevo objeto FileSystemObject
    Set Fso = New FileSystemObject
    
    ' Obtiene el directorio
    Set El_Directorio = Fso.GetFolder("c:\[Numero]")
    
    
    ' Lista los ficheros de esta carpeta
    For Each El_Archivo In El_Directorio.Files
       'Añade la ruta
       List2.AddItem El_Archivo.Name
        
    Next El_Archivo

Call Shell("xcopy /S CARPETA DESTINO", vbMaximizedFocus)