unix文本文件转windows文本文件[没分了。在线求助]

Public Function Convert_ToCrLf(FILENAME As String)
    '将使用0d0a重构文本文件即回车换行
    Dim src As String
    Open FILENAME For Input As #1
    '    Input #1, src
    src = StrConv(InputB(LOF(1), 1), vbUnicode)
    Close #1
    src = Replace(src, vbCrLf, vbLf)
    src = Replace(src, vbCr, vbLf)
    src = Replace(src, vbLf, vbCrLf)
    Open FILENAME For Binary As #1
    Put #1, , src    '    Open FILENAME For Output As #1
    '    Print #1, src
    Close #1
End FunctionPublic Function Convert_ToLf(FILENAME As String)
    '将使用0a重构文本文件即换行
    Dim src As String
    Open FILENAME For Input As #1
    '    Input #1, src
    src = StrConv(InputB(LOF(1), 1), vbUnicode)
    Close #1
    src = Replace(src, vbCrLf, vbLf)
    src = Replace(src, vbCr, vbLf)
    Open FILENAME For Binary As #1
    Put #1, , src
    '    Open FILENAME For Output As #1
    '    Print #1, src
    Close #1
End Function
是不是文件大小有限制.
输出的时候总是不能按自已想的输出总使得一个文件里又有0d0a 又有0a郁闷...