That works Malcolm and you can change the initialize to open to any directory:
[VBA]
Private Sub UserForm_Initialize()
TextBox1 = "F:\Temp\Temp" & "\"
DoList TextBox1
End Sub
[/VBA]