Fejl ved visning af billeder i Userform

Hej.

Jeg har nedenstående koder, som viser nogle billeder, afhængig af hvad du har valgt i ListBox1. Mit problem er, at hvis der ikke er nogle billeder i den angivet mappe med det navn der fremgår af listbox1, så gå koden i fejl.

Er det muligt, at lave koden sådan, at hvis der ikke er nogle billeder i mappen med det navn der fremgår af listbox1, så vises nogle foruddefinerede billeder, som også vil ligge i mappen?'

pft

If ListBox1.ListIndex <> -1 Then
                Ima1.Picture = LoadPicture( _
                "J:\Sted\Afdeling\Kunder\" & ListBox1.Value & "_1.jpg")
                On Error GoTo NoCanDo
                Ima2.Picture = LoadPicture( _
                "J:\Sted\Afdeling\Kunder\" & ListBox1.Value & "_2.jpg")
                On Error GoTo NoCanDo
                Ima3.Picture = LoadPicture( _
                "J:\Sted\Afdeling\Kunder\" & ListBox1.Value & "_3.jpg")
                On Error GoTo NoCanDo
                Ima4.Picture = LoadPicture( _
                "J:\Sted\Afdeling\Kunder\" & ListBox1.Value & "_4.jpg")
                On Error GoTo NoCanDo
                Exit Sub
                End If