Fix for BOM issue in first cell of imported txt file in Excel 2019?

[snb]

Sub M_snb()
   With Application.FileDialog(msoFileDialogFilePicker)
      If .Show Then Workbooks.OpenText .SelectedItems(1), 65001
    End With
End Sub