Dim PicturePath As String = "C:\xml L12 Finished\coin collection\" & "coinpicture" & lstDescriptions.SelectedIndex + 1.ToString & ".png"

If My.Computer.FileSystem.FileExists(PicturePath) Then

PictureBox1.Load(PicturePath)

Else

PictureBox1.Image = Nothing

End If