求一个VB替换文本的程序

是这样的 我这有很多文本文件 电脑看也许无所谓 但是用MP4看的话经常出现很多页没有字 还有就是有

的小说里有规律的出现那几个特殊字符 会出现乱码 上千个文件我也没办法用手动编辑 所以需要个位高

手帮忙给写个程序 以前求过一个 系统坏了就没了
最好不要弹出对话框 界面有2个文本框
一个放文件名 一个放需要替换的字符串 一个按钮 按1下就文件名加1
路径是app.path 里面全是编号名字的 例如000.txt 001.txt````
原文件不要覆盖了 在app.path下新建一个文件夹放吧
我想先删除里面的 空格 和 回车
然后弄个文本框 我用的时候只把需要替换的字符串打到里面
就可以 替换里面的字符串 例如文本框里

的内容是这样:
今天星期几
五号要上班
。。。。
里面有3个字符串 只要***.txt文件里出现这个字符串就直接替换成1个空格
要求也许有点高 但是确实需要这样的功能 各位帮个忙好吗？
请把代码发上来好吗 相信有很多人需要这个 先谢谢了

Private Sub Command1_Click()

Dim fn As Long
Dim fc As String
lj = App.Path & "\" & Text1.Text & ".txt"
lj2 = App.Path & "\完成文件\" & Text1.Text & ".txt"
fn = FreeFile
Print "fn=" & fn
Print "lj=" & lj
Print "lj=2" & lj2

Open lj For Binary As #fn
fc = Space(LOF(fn))
Get #fn, , fc
Close #fn
a = Replace(fc, vbCrLf, " ")
b = Replace(a, " ", "")
c = Replace(b, " ", "")
Open lj2 For Output As #1
Print #1, c
Close #1
Text1 = Text1 + 1
lj = ""
lj2 = ""
fn = FreeFile
fc = ""
a = ""
b = ""
c = ""
End Sub

Private Sub Form_Load()
Text1.Text = "000"
Text2.Text = " "
Command1.Caption = "转换"

End Sub