Bildereinbau auf bestimme Nummer bzw. Index

Also ich bin nicht so der hellste in Basic, aber ich habe ein Problem.
Ich will ein Bild auf eine bestimmte Kundennummer haben. Ich habe schon alles mögliche probiert und ich weiß echt nicht weiter.
Wäre für eine schnelle Hilfe sehr dankbar.
Mein Quelltext hier:

Private Sub cmd_del_Click()
Open "i:temp.txt" For Output As #1
Close #1
End Sub


Private Sub cmd_input_Click()
Open "i:temp.txt" For Append As #1
Close #1
List1.AddItem (txt_KNR & " " & txt_eingabe)
List1.Clear
cmd_save_Click
lbl_dat_Click
txt_KNR = ""
txt_eingabe.Text = ""
txt_eingabe.SetFocus

End Sub

Private Sub cmd_save_Click()

Open "i:temp.txt" For Append As #1
Print #1, txt_KNR & " " & txt_eingabe
Close #1
End Sub

Private Sub cmd_delete_Click()

List1.RemoveItem List1.ListIndex
kunden_auswaehlen:

txt_KNR = ""
txt_eingabe = ""

Dim i As Long
Dim FNum As Integer
FNum = FreeFile
Open "i:temp.txt" For Output As #FNum
For i = 0 To List1.ListCount - 1
Print #FNum, List1.List(i)
Next i
Close #FNum

End Sub


Private Sub Form_Load()
lbl_dat_Click
reservebild = Pfad & "error.jpg"
On Error GoTo bilderror
show_pic.Picture = LoadPicture(Bildname)
show_pic.Visible = True
bilderror:
If Err.Number = 53 Then show_pic.Picture = LoadPicture(reserverbild)
End Sub

Private Sub lbl_dat_Click()
Dim x As String

Open "i:temp.txt" For Input As #1
Do Until EOF(1)
Line Input #1, x
List1.AddItem (x)
Loop
Close #1

End Sub

Private Sub List1_Click()
auswahl = List1
End Sub

Private Sub show_pic_Click()

Dim Bildname As String
Dim reservebild As String
Dim Pfad As String
Pfad = "i:"
Bildname = Pfad & "pic" & txt_KNR & ".jpg"
reservebild = Pfad & "error.jpg"
On Error GoTo bilderror
show_pic.Picture = LoadPicture(Bildname)
show_pic.Visible = True
bilderror:
If Err.Number = 53 Then show_pic.Picture = LoadPicture(reserverbild)


End Sub