Дан файл. Записать в другой файл только те строки, которые начинаются с заданной буквы - VB

Sub CopyFileW(FFrom as String, FTo as String, Lett as String)
      fi%=FreeFile
      open FFrom For Input As #fi%
      fo%=FreeFile
      open FTo For Output As #fo%
      Do While(Not EOF(fi%))
          Line input #fi%,Stri$
          If left$(Stri$,1)=Lett then Print #fo%,Stri$
      Loop
      close #fi%
      close #fo%
End sub