SoloCodigo

holas mi problema es el sgte: tengo que copiar el contenido de un archivo X (ya sea ascii o binario), he
probado de forma secuencial y me ha resultado para el caso de copiar un
archivo ascii, para el caso de un archivo binario no me funciona. Creo que es
por que VB no reconoce cierto caracteres, ya que es se sale antes de terminar
el archivo. Lo otro con lo que tengo dudas es si yo abro un archivo binario
en modo secuencial existe el caracter EOF?
te mando mi supuesto codigo:)

Dim temporal$, variable$, destino$, origen$, canal%, canal2%
canal = 1
canal2 = 2
destino = "c:dodito.exe"
origen = "c:dodo.exe"
Open origen For Input As canal
Open destino For Output As canal2
Do Until EOF(canal)
    Line Input #canal, temporal
    variable = variable + temporal + Chr(13) + Chr(10)
Loop
Print #canal2, variable
Close (canal)
Close (canal2)