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