Solved: Choose a folder in a directory if found.

[defcon_3]

Thanks snb, just one more thing how can i do this?
[vba]
txtDir.Text = .SelectedItems(1) 'where txtDir contains the path
MyFile = Dir(.SelectedItems(1) & "\*.jpg") 'and MyFile contains only the filenames of the images. So only filename are shown in the listbox.
[/vba]

I noticed as well that you have to run again the macro and when prompt cancel the inputbox and the macro will start searching otherwise if you just browse it you will have to wait and nothing will happen.
And the possibility to put indicator that the macro is still searching a folder..
Nevertheless its pretty good