Excel 2003 importing data from multiple .txt files

sub snb()
  c00="E:\OF\"
  c01=dir(c00 & "*.txt")

  do until c01=""
    open c00 & c01 for input as 1
      c02= replace(input(LOF(1),1),vbcrlf,vbcrlf & replace(c01,".txt",Application.International(xlListSeparator))) 
      c03=c03 & vbcrlf & split(c02,split(c02,vbcrlf)(4))(1)
    close
    c01=dir
  loop

  open c00 & "all.csv" for output as 1
    print 1,c03
  close

  workbooks.open c00 & "all.csv"
End sub