VBA wstawianie zdjęcia z folderu

Sub wstaw_foto()
Dim Filename$, place As Range, myPic As Object, kom$
For Each place In Selection
kom = place.Offset(, 1).Address
Filename = "\\serwer\KATALOG\" & place
Set myPic = ActiveSheet.Shapes.AddPicture(Filename & ".jpg", False, True, lngLeft, lngTop, 100, 100)

With myPic
    .Top = Range(kom).Top
    .Left = Range(kom).Left
    .Height = Range(kom).RowHeight
    .Width = Range(kom).Width
End With
Next
Set myPic = Nothing
End Sub

Function fSzukajPliku(strWej As String)
    Dim strPlik As String
    strPlik = Dir(strWej)
    
    Do While Len(strPlik) > 0
        fSzukajPliku = strPlik
        Exit Function
    Loop
End Function

Sub wstaw_foto()
    Dim Filename$, place As Range, myPic As Object, kom$
    
        For Each place In Selection
            kom = place.Offset(, 1).Address
            'Filename = "\serwer\KATALOG\" & place
            
            Filename = "\serwer\KATALOG\" & fSzukajPliku("\serwer\KATALOG\ABC*.jpg")
            
            Set myPic = ActiveSheet.Shapes.AddPicture(Filename & ".jpg", False, True, lngLeft, lngTop, 100, 100)
            
            With myPic
            .Top = Range(kom).Top
            .Left = Range(kom).Left
            .Height = Range(kom).RowHeight
            .Width = Range(kom).Width
            End With
        Next
    
    Set myPic = Nothing
End Sub

Function fSzukajPliku(strWej As String)
    Dim strPlik As String
    strPlik = Dir(strWej)
 
    Do While Len(strPlik) > 0
        fSzukajPliku = strPlik
        Exit Function
    Loop
End Function

Sub PierwszyPlik()

    MsgBox fSzukajPliku("c:\windows\tw*.dll")

End Sub

Function fSzukajPliku(strWej As String)
    Dim strPlik As String
    strPlik = Dir(strWej)
   If strPlik<>"." And strPlik<>".." then fSzukajPliku=strPlik 
End Function

' albo krótko:
Function fSzukajPliku(strWej As String)
    fSzukajPliku = Dir(strWej, vbNormal)
End Function