Visual Basic 6 - Caricare file testo + immagini corispondenti

Buongiorno

Qualche settimana fa avevo un problema di apertura in successione di textfiles diversi.
Avevo chiesto a destra e sinistra un aiuto (anche qui). Finalmente
ultimamente, impegnandomi al massimo, sono riuscito a risolvere il problema iniziale.

Per poi rendere piu interessante il tutto ho deciso di aggiungere una parte nuova..
Cioé, ho aggiunto ad ogni file testo tre immagini.
Quindi io salvo prima un file testo comprendente 3 textbox+3 immagini.
per caricare quindi in successione il tutto.
i vari filetesto e contemporaneamente le corrispondenti immagini,
Diciamo che ci sono quasi riuscito. C'é uno sbaglio di impostazione variabili che non riesco a
trovare nella sezione di caricamento immagini.
Non chiedo quindi nesun codice completo , in quanto quello che ho funziona quasi del tutto a meeraviglia.
L'unico neo é la parte di caricamento immagini contemporaneamente ai textbox
Puo qualcuno aiutarmi a trovare dove sbaglio ?E suggerirmi naturalmente la giusta impostazione.
Il punto incriminato eé racchiuso tra stelline
Ecco tutto il codice, ripeto,(quasi) funzionante;

Dim i As Integer
Dim Filename As String
Dim bmpbestand As Integer
Option Explicit
Private Type MyFile


Text1  As String
Text2 As String
Text3 As String



End Type

Sub OpenFile()
For i = 0 To 2
CommonDialog1.Filter = "Text Files (*.txt)|*.txt|All Files|*.*|"
CommonDialog1.ShowOpen
Filename(i) = CommonDialog1.Filename
Next i
i = -1
Timer1.Enabled = True
End Sub


Private Sub Command1_Click()
OpenFile ' Apro i percorsi

End Sub

Private Sub Timer1_Timer()
i = i + 1
LoadFile 'chiam la routine loadfile
If i = 2 Then i = -1
End Sub

Sub LoadFile()
Dim File As Long
Dim Bestand As MyFile
On Error Resume Next
File = FreeFile
Open Filename(i) For Binary Access Read As #File
Get #File, , Bestand
Close #File

Text1.Text = Bestand.Text1
Text2.Text = Bestand.Text2
Text3.Text = Bestand.Text3

' *************************************************************
bmpbestand = Left(Filename(i), InstrRevVB5(Filename(i), "."))
On Error Resume Next
 For i = 0 To 3
  Image1(i).Picture = LoadPicture(bmpbestand & Trim(Str(i)) & ".bmp")
Next
' ************************************************************
End Sub

nb.
nel codice si fa riferimento ad una funzione che ho omesso per non mettere troppo codice.
grazie
rex

Ho risolto !
cosi

bmpbestand = Left(Percorsi(i), InstrRevVB5(Percorsi(i), "."))
On Error Resume Next
 For q = 0 To 3
  Image1(q).Picture = LoadPicture(bmpbestand & Trim(Str(q)) & ".bmp")
Next

grazie per l'attenzione
rex