saving a multiline textbox to a txt file

[pbuddy2007]

I'm using the following code to save the textbox:

Text144.Text = ""


strtxt = Text14.Text
arrlines = Split(strtxt, vbCrLf)

For Each strline In arrlines
Text144.Text = Text144 & strline & vbCrLf
Next


FileNum = FreeFile
Open App.Path & "\temp\file.jfl" For Output As FileNum
Print #FileNum, Text144.Text
Close FileNum


the problem is that each time i load + save the text I get an extra vbCrtl at the end, how can i delete them all ?

 

[PeterWallace]

mystr = Text144.Text

MyArray = Split(mystr, vbCrLf)

deCh= FreeFile
Open App.Path & "\temp\file.jfl" For Output As deCh
For i = 0 To UBound(MyArray )
mystr = MyArray (i)
Print #deCh, mstr
Next
Close #deCh

 

[HughLerwill]

Print #FileNum, Text144.Text;