Dim bspBildPfad, endung As String
Dim counter As Integer
counter = 1
bspBildPfad = App.Path
If Right(bspBildPfad, 1) <> "\" Then bspBildPfad = bspBildPfad & "\"
bspBildPfad = bspBildPfad & "Profile\" & prName & "_bsp."
Do
    Select Case counter
    Case 1
        endung = "jpg"
    Case 2
        endung = "gif"
    Case 3
        endung = "jpeg"
    Case 4
        endung = "bmp"
    Case Else
        GoTo keinBild
    End Select
    counter = counter + 1
Loop Until Dir$((bspBildPfad & endung)) <> ""
bspBildFile = (bspBildPfad & endung)
picShowPicture picProfilBsp, bspBildFile
picProfilBsp.MousePointer = 99
 
Exit Sub
 
keinBild:
    picShowPicture picProfilBsp, (App.Path & "\Profile\keinBild.jpg")
    bspBildFile = ""
    picProfilBsp.MousePointer = 0