Option Explicit

Private Sub CommandButton1_Click()
Dim result As Long
Dim Filename As String

With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Âûáîð ôîòîãðàôèè ñîòðóäíèêà"
        .Filters.Add "Âñå ôàéëû", "*.*"
        .Filters.Add "JPEG", "*.jpg"
        .Filters.Add "Ðèñóíêè", "*.bmp"
        .Filters.Add "GIF", "*.gif"
        .FilterIndex =  2 
        .AllowMultiSelect = False
        .InitialFileName = ThisWorkbook.Path
        result = .Show
        If (result <>  0 ) Then
            Filename = Trim(.SelectedItems.Item( 1 ))
        End If
End With
End Sub