writing to txt file - carriage return issue

    Write #1, "The End"[COLOR=red];[/COLOR]

Private Sub OutPutToText()
Dim MyFile As String
Dim fnum
MyFile = "C:\DanTest.txt"
fnum = FreeFile()
Open MyFile For Output As fnum
Print #fnum, "This is my text"
Print #fnum, "This is more text"
Print #fnum, """This Is my last Text"""
Close #fnum
End Sub

Private Sub OutPutToText()
'-----------------------------
Dim objFSO As Object
Dim objFile As Object
Dim intLength As Long
Dim strEnd As String
Dim strFile As String
Const ForReading = 1
Const ForWriting = 2
'----------------------------
Dim MyFile As String
Dim fnum
Const FILE_PATH As String = "C:\DanTest.txt"

MyFile = FILE_PATH
fnum = FreeFile()
Open MyFile For Output As fnum
Print #fnum, "This is my text"
Print #fnum, "This is more text"
Print #fnum, """This Is my last Text"""
Close #fnum

'-------------------------------------------------------------------------
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(FILE_PATH, ForReading)
strFile = objFile.ReadAll
objFile.Close
intLength = Len(strFile)
strEnd = Right(strFile, 2)
If strEnd = vbCrLf Then
    strFile = Left(strFile, intLength - 2)
    Set objFile = objFSO.OpenTextFile(FILE_PATH, ForWriting)
    objFile.Write strFile
    objFile.Close
End If
'-------------------------------------------------------------------------

End Sub