(Vb6) Fout bij tweede image opslaan

'SAVE
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Public Sub SaveText(file As String)
Open file For Output As #2
 
  Dim txtbox2 As String
  txtbox2 = Replace(Text2.Text, vbCrLf, ",")
 
  Dim txtbox1 As String
  txtbox1 = Replace(Text1.Text, vbCrLf, ",")
 
  Print #2, txtbox2
  Print #2, txtbox1
  Dim VolledigeNaam As String
  VolledigeNaam = CommonDialog1.FileName
Dim VolledigeNaamZonderExtensie As String
VolledigeNaamZonderExtensie = Replace(VolledigeNaam, ".txt", ".jpg") 'met of zonder . even testen.
SavePicture Image1.Picture, VolledigeNaamZonderExtensie
  
  
Close #2
End Sub

Private Sub Command1_Click()
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)

End Sub

Private Sub save_Click()
On Error Resume Next
Dim Slash As String
'On Error Resume Next
 MkDir App.Path & "\ArchivioRGA\" ' Dir maken
On Error Resume Next
CommonDialog1.Filter = "Tekst|*.txt"
If Right(App.Path, 1) <> "\" Then Slash = "\"
CommonDialog1.InitDir = App.Path & Slash & "ArchivioRGA"
CommonDialog1.FileName = App.Path & Slash & "ArchivioRGA" & "\*.txt"
CommonDialog1.ShowSave
Call SaveText(CommonDialog1.FileName)
End Sub
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$
'LOAD
'$$$$$$$$$$$$$$$$$$

Private Sub load_Click()
On Error Resume Next
Dim Slash As String
On Error Resume Next
 MkDir App.Path & "\ArchivioRGA\" ' qui ho aggiunto
CommonDialog1.Filter = "Tekst|*.txt"
If Right(App.Path, 1) <> "\" Then Slash = "\"
CommonDialog1.InitDir = App.Path & Slash & "ArchivioRGA"
CommonDialog1.FileName = App.Path & Slash & "ArchivioRGA" & "\*.txt"
CommonDialog1.ShowOpen
Call LoadText(CommonDialog1.FileName)
End Sub

Private Sub LoadText(file As String)
    Text1.Text = "": Text2.Text = ""
    Dim H As Integer
    Dim L As String
    H = FreeFile
    Open file For Input As #H
    While Not EOF(H)
        Line Input #H, L
        Text1.Text = Replace(L, ",", vbCrLf)
        Line Input #H, L
        Text2.Text = Replace(L, ",", vbCrLf)
    Wend
    Close #1
    Close #H
    Dim VolledigeLaadNaam As String
VolledigeLaadNaam = CommonDialog1.FileName
Dim VolledigeLaadNaamZonderExtensie As String
VolledigeLaadNaamZonderExtensie = Replace(VolledigeLaadNaam, ".txt", ".jpg") '
Image1.Picture = LoadPicture(VolledigeLaadNaamZonderExtensie)
 End Sub

.....
......
SavePicture Image1.Picture, VolledigeNaamZonderExtensie 
SavePicture Image2.Picture, VolledigeNaamZonderExtensie

....
....

Image1.Picture = LoadPicture(VolledigeLaadNaamZonderExtensie)
Image2.Picture = LoadPicture(VolledigeLaadNaamZonderExtensie)

Dim VolledigeNaam2 As String
  VolledigeNaam2 = CommonDialog1.FileName
Dim VolledigeNaamZonderExtensie2 As String
VolledigeNaamZonderExtensie2 = Replace(VolledigeNaam2, ".txt", ".jpg") '
SavePicture Image2.Picture, VolledigeNaamZonderExtensie2

Image1.Picture = LoadPicture(Replace(CommonDialog1.FileName, ".txt", ".bmp"))
   Image2.Picture = LoadPicture(Replace(CommonDialog1.FileName, ".txt", "2.bmp"))

SavePicture Image1.Picture, Replace(CommonDialog1.FileName, ".txt", ".bmp")
  SavePicture Image2.Picture, Replace(CommonDialog1.FileName, ".txt", "2.bmp")