Outputting to text files to include carriage returns

Hi I have the following line of code in one excel cell
"01VINV20160229130801Jan 16 Incentive700120160101Incentive for Jan 16 GBP
02VINV20160229130801Jan 16 IncentiveZP00655 20160101ZE07110 Incentive for Jan 16
04VINV20160229130801Jan 16 Incentive0000514060110 0 V0MWFS Jan 16 Incentive "


This is derived from the following formula:


='Copy of Payment file format'!A3&'Copy of Payment file format'!B3&'Copy of Payment file format'!C3&'Copy of Payment file format'!D3&'Copy of Payment file format'!E3&'Copy of Payment file format'!F3&'Copy of Payment file format'!G3&'Copy of Payment file

I want to be able to save to a text file so it generates 3 lines of data, is this possible?

thanks
Carl.

I'm trying this vba - its almost there but doing something funny

Sub writetexttofile()

Dim filepath As String
Dim celldata As String
Dim lastcol As Long
Dim lastrow As Long
Dim firstrow As Long

lastcol = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
lastrow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
'firstrow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeFirstCell).Row

'celldata = ""

filepath = "c:\testpayment.txt"

Open filepath For Output As #2

For i = 1 To lastrow


For j = 1 To lastcol

If j = lastcol Then
celldata = Left((ActiveCell(i, j).Value), 80) & vbCrLf & Mid((ActiveCell(i, j).Value), 80, 123) & vbCrLf & Right((ActiveCell(i, j).Value), 159)
Else
celldata = Left((ActiveCell(i, j).Value), 80) & vbCrLf & Mid((ActiveCell(i, j).Value), 80, 123) & vbCrLf & Right((ActiveCell(i, j).Value), 159)
End If
Next j

Write #2, celldata

Next i

Close #2

MsgBox ("Done")

End Sub