Parse Part of File name and paste into excel

I am attaching txt file and excel file for your referance.
I am using VB macro (please look into Module1 of excel file) to Parse data from txt file and transfer into excel sheet.

Its working great, however i would like to add the date and Invoice # which is part of the txt
file to be pasted in column I and J as i have shown it manually in excel sheet cell I2,J2,...I3,J3...

eg : 2010-05-25-Asheer-CDI#455665 is the name of the txt file...
from here i would like to extract date (2010-05-25) and put it in column I
extract Invoice # (455665) and put it in column J

Also as you can see in VB code :

Set oFS = fso.OpenTextFile("C:/2010-05-25-Asheer-CDI#455665.txt", ForReading, False)


I would like to see if it is possible to manually enter the file name for reading by asking :

Please enter the location of the file to be read...and browse to the file..


Please let me know if you have any question.

Thank you...

Riz..