Richard,

Thanks, that is great news.  I did figure out how to get rid of the quotes on start date and time using the mid function.

   StartTime = Mid(TextLine,2,8) ' get start time.

   StartDate = Mid(TextLine,2,10) ' get start date.   

worked for me.

Thanks again,

John Guenther
'Ye Olde Pen Maker'
Sterling, Virginia

You may have to check the length of the string, since there are not always a constant number of characters...

Like 03/09/2009 vs. 3/9/2009