If you explore the Post above yours you will find code for importing text.
http://www.vbaexpress.com/forum/show...ds-into-Access
There is also this one as well
http://www.vbaexpress.com/forum/showthread.php?59949-File-Dialog-Browse-Save-Append

I am not sure from your snippet of code what it is you have to achieve.