Поиск и замена текста в файле - VB

Формулировка задачи:

Добрый день помогите написать программу для поиска и замены текста в файле. файл находиться по адресу C:\test.txt. и можно ли файл с *.v8i производить такие действия(файл открывается в блокноте ) ?

Решение задачи: «Поиск и замена текста в файле»

textual
                            Листинг программы 
                        

                            Public Function WriteBytes&(Path$, Bytes As Variant)
    Dim Byt() as Byte
    On Error GoTo 1
    Call Kill(Path)
1
    Open Path For Binary As #1
    Byt = Bytes
    Put #1, 1, Byt
    Close #1
End Function
 
 
Public Function ReadBytes(Path$) As Byte()
    Open Path For Binary As #1
    On Error Resume Next
    ReDim Preserve ReadBytes(LOF(1) - 1)
    Get #1, 1, ReadBytes
    Close #1
End Function
    
 
    
Private Sub Form_Load()
    Dim s$, p$, s1
    p = "C:\test.txt"
    s = StrConv(ReadBytes(p), vbUnicode)
    j = Split(s, "Искомый текст", 2)
    s = Join(j, "$$$")
    WriteBytes& p, s
    MsgBox "текст " & p & " изменен :)"
    End
End Sub
                        