Open Label1.Caption For Binary As #1 'Abrimos un archivo con ID 1 (#1)
Dim Archivo As String 'Creamos una variable para cargar el archivo
Archivo = Space(LOF(1)) 'Creamos un Buffer con Archivo del tamaño del archivo con ID 1, Space crea tantos espacios (chr(32)) como la longitud del archivo 1 (#1)
Get #1, , Archivo 'Obtenemos del archivo con ID 1 la cantidad de datos segun el tamaño del Buffer creado anteriormente en Archivo
Close #1 'Cerramos el archivo para volver a poder acceder a el.
otra cosa en el caso del joiner porque el copy esto archivo o mejor dicho el stub?Esto no te lo entendi, si me explicas mejor te lo respondo.
Seek (1), LOF(1) + 1 'Seek busca en el ID que se le indique la posicion que se le indique, en este caso el ID es 1 (#1) y LOF(1) + 1 es porque la cantidad del archivo + 1, es para ir al final del archivo eso.
Espero haber sido claro, sino pregunta!