'// Place In A Module
Public Function OpenFileDialog() As String
'// Single file return
'// Ref required:= Microsoft Office 11.0 Object Library
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Title = "Select a File"
.Filters.Add "Text Files", "*.txt", 1
.Filters.Add "All Files", "*.*", 2
.AllowMultiSelect = False
.InitialFileName = CurrentProject.Path
If .Show = True Then
OpenFileDialog = .InitialFileName & ".txt"
End If
End With
Set fd = Nothing
End Function