[Alexej77]

Вот пример:

Код:

With Application.FileDialog(msoFileDialogOpen)
    'Удаление стандартных фильтров
    .Filters.Clear
    'Добавление своего фильтра
    .Filters.Add "Изображения", "*.bmp; *.jpg"
    'Добавление своего фильтра
    .Filters.Add "Аудио", "*.mp3; *.wav"
    If .Show = True Then _
        'Путь и имя файла
        Text1 = .SelectedItems.Item(1): _
        'Расширение файла (для 3-х символов)
        Text2 = Right(Text1, 3)
    End If
End With

У CheckBox есть свойство Value (True или False), которое определяет, стоит галка или нет.