'Reading Textbox value
filename = Application.Worksheets("main").txtFile.Value

'Current Path
Path = Application.ThisWorkbook.Path

'Wild card
file = Path & "*juk*.xls"
file_return = Dir(file)
While file_return <> ""
        file_return = Dir()
wend