Application.FileDialog(msoFileDialogOpen)

Private Sub CommandButton4_Click()

Dim fd As FileDialog
Dim vrtSelectedItem As Variant

'Filters.Add(, "MBD",1)
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
.Filters.Clear
.Filters.Add "Только Базы данных", "*.MDB"
.FilterIndex =  0 
.AllowMultiSelect = False

.ButtonName = "Выбрать"
'Нажата кнопка "Выбрать"
If .Show = - 1  Then
For Each vrtSelectedItem In .SelectedItems
'запись пути
 paTH = vrtSelectedItem
 Next vrtSelectedItem
'Нажата кнопка Cancel.
Else
 Exit Sub
End If
End With

Set fd = Nothing

TextBox1.Value = paTH

End Sub

Function GetFilePath() As String

Dim fd As FileDialog   ' объявляем переменную
Set fd = Application.FileDialog(msoFileDialogOpen)  ' создаем диалог

With fd
.Filters.Clear    ' удаляем все стандартные фильтры диалога
.Filters.Add "Все файлы", "*.*"  ' создаем нулевой фильтр
.Filters.Add "Все MDB ", "*.MDB"  ' создаем второй фильтр в данном случае он может быть не нужен
.FilterIndex =  0                    ' ставим маркер на 0 фильтр
.AllowMultiSelect = False  ' запрещаем мультиселект
.ButtonName = "Выбрать"    ' называем кнопку выбора как хотим
End With

   If fd.Show = - 1  Then
      GetFilePath = fd.SelectedItems.Item( 1 ) ' присваиваем функции путь и имя
   Else
      Exit Function   ' если нажата клавиша cancel
  End If

Set fd = Nothing ' чистим память

End Function

Sub doit()
Dim MyFilename, MyExt As String

    MyFilename = Dir(GetFilePath) 'получаем имя файла
    MyExt = Right(MyFilename,  3 )  'получаем расширение
    
End Sub

For i =  1  To ActiveWorkbook.Sheets.Count
 Me.Controls.Remove ("opt" & i)
Next I

Private Sub CommandButton1_Click()
For i =  1  To ActiveWorkbook.Sheets.Count
If Controls("opt" & i).Value = True Then
Choise = i
Exit For
End If
Next i
Unload Me
End Sub