Замена символа в строке

Sub Task(fname as string, n as long, newSym as string)
   ff%=FreeFile
   open fname for binary Access Read Write As #ff%
   lf&=LOF(ff%)
   Buf$=Space$(lf&)
   get #ff%,, Buf$
   p&=1
   Do
      k&=Instr(p&,Buf$,Chr$(13))
      if k&=0 then Exit Do
      mid$(Buf$,p&+n+1, 1)=newSym
      p&=p&+2
   Loop
   seek #ff%,1
   put #ff%,,Buf$
   close #ff%
End Sub

Sub Task(fname as string, n as long, newSym as string)
   ff%=FreeFile  ' номер файла
   open fname for binary Access Read Write As #ff% ' открываем в двоичном режиме для чтения и записи
   lf&=LOF(ff%) ' получаем длину файла
   Buf$=Space$(lf&) ' выделяем буфер
   get #ff%,, Buf$ ' читаем файл целиком
   p&=1 ' указатель символа
   Do
      k&=Instr(p&,Buf$,Chr$(13)) ' первое вхождение конца строки (с p-й позиции)
      if k&=0 then Exit Do ' если строка последняя - выход
      mid$(Buf$,p&+n+1, 1)=newSym ' меняем символ в нужном месте
      p&=p&+2 ' корректируем позицию
   Loop ' конец цикла
   seek #ff%,1 ' позиционируем файловый указатель на начало файла
   put #ff%,,Buf$ ' выводим буфер
   close #ff% ' закрываем файл
End Sub

Sub Task(fname As String, n As Long, newSym As String)
   ff% = FreeFile ' номер файла
   Open fname For Binary Access Read Write As #ff% ' открываем в двоичном режиме для чтения и записи
   lf& = LOF(ff%) ' получаем длину файла
   Buf$ = Space$(lf&) ' выделяем буфер
   Get #ff%, , Buf$ ' читаем файл целиком
   p& = 1 ' указатель символа
   Do
      k& = InStr(p&, Buf$, Chr$(13)) ' первое вхождение конца строки (с p-й позиции)
      If k& = 0 Then Exit Do ' если строка последняя - выход
      Mid$(Buf$, p& + n - 1, 1) = newSym ' меняем символ в нужном месте
      p& = k& + 2 ' корректируем позицию
   Loop ' конец цикла
   Seek #ff%, 1 ' позиционируем файловый указатель на начало файла
   Put #ff%, , Buf$ ' выводим буфер
   Close #ff% ' закрываем файл
End Sub
 
 
Sub Test()
     HomeDir$ = ThisWorkbook.Path
     Task HomeDir$ + "\f1.txt", 3, "*"
     Task HomeDir$ + "\f2.txt", 5, "*"
 End Sub