vb 删除记事本最后空行

我写了一个程序部分代码如下
Open "d:\配置文件.ini" For Input As #1 '替换部分
Dim a$, b$, i%
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, a ' 读入一行数据并将其赋予a变量。
b = b & a & vbCrLf
Loop
Close #1

b = Replace(b, peizhi, sanceng) '替换语句

Open "d:\配置文件.ini" For Output As #1 '写入数据
Print #1, b
Close #1

每隔一段时间就写一次文件 。但是每次写过 文本文件最后就会多出2行空行 这样时间长了就积累了许多空行出来，请问怎么解决这个问题啊。
让他不要在文本末尾出现空行。
只要删除最后的空行，不要把最后一行前面的 vbCrLf 删了啊。

Open "d:\配置文件.ini" For Input As #1 '替换部分
Dim a$, b$, i%
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, a ' 读入一行数据并将其赋予a变量。
b = b & a & vbCrLf
Loop
Close #1

b = Replace(b, peizhi, sanceng) '替换语句

Open "d:\配置文件.ini" For Output As #1 '写入数据
Print #1, b; '这里加一分号 ; 就可以了
Close #1

再次打开文件，用二进制 dim arr() as byte open "d:\配置文件.ini" for binary as #1 l=lof(1) redim arr(l) get #1, ,arr() colse #1 Kill ("D:\配置文件.ini") open "d:\配置文件.ini" for binary as #2 for i=1 to l-4 '两个回车占4个字节 put #1, ,arr(i) next colse #2