请问如何修改保存文本文件？

strLog = ""
Open strPath For Input As #1
Do While Not EOF(1)
    Line Input #1, strTmp
    If Trim(strTmp) <> "" Then
        If Trim(strLog) <> "" Then
            strLog = strLog & strTmp & vbCrLf
        Else
            strLog = strTmp & vbCrLf
        End If
    End If
Loop
Close #1Open strPath For Output As #1
If Trim(strLog) <> "" Then
    strLog = strLog & "天涯何处无芳草" & vbCrLf
    strLog = strLog & "何必单恋一支花"
Else
    strLog = "天涯何处无芳草" & vbCrLf
    strLog = strLog & "何必单恋一支花"
End If
Write #1, strLog
Close #1我是这么写的，可是保存以后多了一堆的引号。各位高手谁能帮我改一下呀？