Gracias de todos modos Pero no era de la funcion seek era de cundio se escribe en
Open "C:\" & Parametros(0) For Binary As #Num
Put #Num, , FilesV(i)
Close #Num
porque Parametros(0) era = vbcrlf & "C:\fichero.exe" & vbcrlf
Entonces tuve que hacer
Parametros(0)=replace(parametros(0),vbcrlf,"")
ya funciona correctamente ese paso
Gracias