Свойство .ButtonName не работает в Excel VBA msoFileDialogFilePicer

Question

Я хочу изменить текст кнопки «Открыть» в msoFileDialogFilePicker на «Выбрать». Свойство .ButtonName должно делать это, но результат все еще "Open". Я ценю чей-либо совет.

  Dim str1, str2 as String

  With Application.FileDialog(msoFileDialogFilePicker)
    .Title = "Select PO Report"
    .ButtonName = "Select"
    .InitialFileName = "C:\"
    .Filters.Add "Order File", "*.xls?", 1
    .AllowMultiSelect = False
    If .Show <> -1 Then
      Exit Sub
      End If
    str1 = Dir(.SelectedItems(1))
    str2 = .SelectedItems(1)
    End With