怎样消除vb对文本文件查找替换后在文件尾多出的空行？

option explicit
    dim tfilepath1 as string
    dim tfilepath as string

private sub tihuan（tfilepath as string, oldstr as string, newstr as string)
    dim k（) as byte
    dim knew（) as byte
    tfilepath1 = tfilepath
    open tfilepath for binary as #1
        redim k（filelen（tfilepath) - 1) as byte
        get #1, , k
        k = replace（strconv（k, vbunicode), oldstr, newstr) '无条件全部替换
    close #1
    open "c:\tmp.txt" for output as #2 '建立临时文件
        print #2, k
    close #2
    fuyuan
end sub

private sub fuyuan（)
    dim k（) as byte
    dim knew（) as byte
    dim i as long
    dim l as long
    kill tfilepath1
    open "c:\tmp.txt" for binary as #1 '二进制方式读临时文件
        redim k（filelen（"c:\tmp.txt") - 1) as byte
        get #1, , k
    close #1
    l = ubound（k)
    print ubound（k)
    redim knew（l - 2) '删除临时文件最后2字节
    for i = 0 to l - 2
    knew（i) = k（i)
    next
    open "c:\1.txt" for binary as #2 '二进制方式写新文件
    for i = 0 to ubound（knew)
        put #2, , k（i)
    next
    close #2
    kill "c:\tmp.txt" '删除临时文件
end sub

'调用方法
private sub command2_click（)
    command2.enabled = false
    call tihuan（"c:\1.txt", "旧字符", "新字符")  'c:\1.txt可以超过5mb以上
    command2.enabled = true
end sub

private sub fuyuan（)
    dim k（) as byte
    dim i as long
    dim l as long
    kill tfilepath1
    open "c:\tmp.txt" for binary as #1 '二进制方式读临时文件
        redim k（filelen（"c:\tmp.txt") - 1) as byte
        get #1, , k
    close #1
    l = ubound（k)
    print ubound（k)
    open "c:\1.txt" for binary as #2 '二进制方式写新文件,最后2字节不写
    for i = 0 to l - 2
        put #2, , k（i)
    next
    close #2
    kill "c:\tmp.txt" '删除临时文件
end sub

private sub tihuan（tfilepath as string, oldstr as string, newstr as string)
dim k     as string, s as string
open tfilepath for input as #1
do while not eof（1)    ' 循环至文件尾。
    s = input（1, #1)    ' 读入一个字符。
    k = k + s
loop
k = replace（k, oldstr, newstr)           '无条件全部替换
close #1

open tfilepath for output as #2
print #2, k;
close #2
end sub

private sub tihuan（tfilepath as string,oldstr as string, newstr as string) 
    dim k（) as byte 
    open tfilepath for binary as #1 
        redim k（filelen（tfilepath)-1) 
        get #1, , k  
     close   #1 
     
    k=replace（ mid（strconv（k,vbunicode),1,len（strconv（k,vbunicode))-1) _
            ,oldstr,newstr)   '无条件全部替换
    open tfilepath for output as #2 
        print #2, k 
    close #2 
end  sub


'看你的代码完全是字符处理，所以可以这样：
private sub tihuan（tfilepath as string,oldstr as string, newstr as string) 
    dim s as string 
    open tfilepath for binary as #1 
        s=space（lof（#1))
        get #1, , s  
    close #1 
     
    s=replace（mid（s,1,len（s)-1),oldstr,newstr)   '无条件全部替换
    
　　 open tfilepath for output as #2 
        print #2, s 
    close #2 
end  sub