Como abrir un archivo en una ruta especifica de una red con código vba y copiarlo a otra ruta

Necesito que el código me muestre la ruta con los archivos para poder abrirlo y dejarlo en una variable para copiarlo en otra ruta

If cbestado = "Dar de Baja" Then
MsgBox "Estas seguro de que quieres dar de baja a la IO " & lblio.Caption & txtAsunto.Text, vbYesNo
        Sheets("IOS").Select
        ruta_origen2 = Shell("explorer.exe" & "\\respaldo\SGI\Prestacion_del_servicio_de_ transporte\Registros\Instrucciones Operacionales IO Vigentes\") ' esta linea de codigo hace referencia a la ruta de donde viene el Archivo
                       'Application.Dialogs(xlDialogOpen).Show
        ruta_destino2 = "\\respaldo\SGI\Prestacion_del_servicio_de_ transporte\Registros\Instrucciones Operacionales IO Invalidas\" & NombreIO & "." & "pdf"
         'esta linea de codigo hace referencia a la ruta hacia donde debe ir el Archivo
    If fso.FileExists(ruta_origen2) Then
       fso.copyfile ruta_origen2, ruta_destino2  ' esta condicional hace que el archivo vaya a la carpeta indicada
       MsgBox "Registro exitoso"
       End If
       End If
End Sub