Fichier compreneant texte et image

Merci l'ecriture du fichier fonctionne très bien mais lors de la lecture du fichier et de l'écriture de l'image.

   Open Fichier For Input As #1
   Open "C:\Image.jpg" For Output As #2
   Print #2, Input(LOF(1) - Seek(1), 1)
   Close #1
   Close #2

la ligne  Print #2, Input(LOF(1) - Seek(1), 1) renvoit  une erreur !
   
   'erreur' d'exécution n°62
   L'entrée dépasse la fin de fichier

Pouvez vous m'aider ? Que dois-je faire pour corriger ça ?
 

Non ça ne marche toujours pas ! J'ai toujours ce laid message d'erreur !

Voici mon code :
   
Private Sub cmdCréer_Click()
   Dim Fichier1 As String
   Dim Fichier2 As String
   Fichier1 = "C:\Film.txt"
   Fichier2 = "C:\ImageOrigine.jpg"
   Open Fichier1 For Output As #1
   Open Fichier2 For Binary As #2 
   Write #1, "10"
   Write #1, txtTitre.Text
   Write #1, txtRealisateur.Text
   Write #1, txtDuree.Text
   Write #1, txtDate.Text
   Write #1, txtPays.Text
   Write #1, txtActeur.Text
   Write #1, txtCotation.Text
   Write #1, txtGenre.Text
   Write #1, txtFormat.Text
   Write #1, txtSupport.Text
   Write #1, Input(LOF(2), 2)
   Close #2
   Close #1
End Sub

Private Sub cmdOuvrir_Click()
   Dim Fichier1 As String
   Dim a As String
   Dim Ligne As String
   Fichier1 ="C:\Film.txt"
   Open Fichier1 For Input As #1
   Open "C:\NouvelleImage.jpg" For Output As #2
   Input #1, a
   For x = 1 To Val(a)
       Input #1, a
       MsgBox (a)
   Next
   Print #2, Input(LOF(1) - (Seek(1) + 1), 1)
   Close #2
   Close #1
   Picture1.Picture = LoadPicture("C:\NouvelleImage.jpg")
End Sub

C'est gentil de m'aider  !

J'ai trouvé une solution !
Il suffit que dans ton fichier tu ajoutes la longueur du fichier image dans tes données
Rajoute après Write #1, txtSupport.Text le code Write #1, LOF(2)

Puis pour ouvrir le fichier, remplace Print #2, Input(LOF(1) - (Seek(1) + 1), 1) par les
trois lignes suivantes :

Input #1, length_image
Seek #1, LOF(1)-(length_image-1)
Print #2, Input(length_image,1)

J'espère que ça va marcher ; je suis toujours au cyberlocal !