Sub import()
text_trade_date = Workbooks("JABCAP.xls").Worksheets("Sheet2").Cells(i, 2).Value
text_trade_date = Format(text_trade_date, "[$-409]dd-mmm-yy;@")
Cells(i,16) = text_trade_date
Cells(i,16).Select
Open "C:\tmp\test.txt" For Output As #1
Print #1, ActiveSheet.Cells(i, 16)
Close #1
End Sub