Dim fd As FileDialog, FilePath As String

Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
    .Title = "Select the file you would like to import"
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "Potato File", "*.pot"
    .FilterIndex = 1
    If .Show <> -1 Then
        End
    End If
    FilePath = .SelectedItems(1)
End With