Sub FOO()
Dim varitem As Variant
With Application.FileDialog(msoFileDialogFilePicker)
With .Filters
.Clear
.Add "All Files", "*.*"
End With
.AllowMultiSelect = False
.InitialFileName = [color=red]FULL PATH OF THE SOURCE DIRECTORY YOU WANT TO OPEN (IN QUOTE MARKS)[/color]
.InitialView = msoFileDialogViewDetails
If .Show Then
For Each varitem In .SelectedItems
me.[color=red]YourTextBoxName[/color] = Varitem
Next varitem
End If
End With
End Sub