Замена символов в файле - VB

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

Доброго времени суток! У меня проблема. Надо написать программу, которая будет изменять символы в текстовой файле (напрмер символы "83513" заменить на "текст"). То, что имеется у меня сейчас просто очищает файл и когда я проверяю работу программы, оказывается файл пустой.

                    Листинг программы
                
 
                        
                          
                    
Public Function reading(file)
Dim iFile As Integer
Dim lByteLen As Long
Dim bytData As Byte
Dim bytArray() As Byte
Dim Tmp
Dim a
a = 1
iFile = FreeFile
Open ("C:\Users\%UserName%\Desktop\folder\12.txt") For Binary As iFile
For a = 1 To EOF(iFile)
Get iFile, b, bytData
Tmp = Tmp & AscW(bytData)
Next a
Tmp = Replace(Tmp, "83513", "tekst")
 
reading = Tmp
Close iFile
End Function
 
Private Sub Command1_Click()
Dim str
str = reading("C \ Users \ %UserName% \ Desktop \ folder \ 12.txt")
Dim MyFile 
MyFile = FreeFile 
Open ("C:\Users\%UserName%\Desktop\folder\12.txt") For Output As #MyFile
Print #MyFile, str 'ГЇГЁГёГҐГ¬
Close #MyFile 
MsgBox ("OK")
End Sub

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Private Sub Комманда1_Click()
   Dim file As String, CF As String, F As String
      file = "C:\Users\%UserName%\Desktop\folder\12.txt"
   Open file For Binary As #1
      CF = Input(FileLen(file), 1)
   Close #1
   F = Replace(CF, "83513", "tekst")
     Open file For Output As #1
   Print #1, F
     Close #1
End Sub