Удаление части строки - VB

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

Решение задачи: «Удаление части строки»

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

                            Dim Path As String, FileName As String, Row As String, i1 As Integer, i2 As Integer
Path = "c:\"


FileName = Dir(Path + "*.txt")
While FileName <> ""
  Open Path + FileName For Input As #1
  Open Path + Left$(FileName, Len(FileName) - 4) + "_out.txt" For Output As #2
  Do Until EOF(1)
    Input #1, Row
    i2 = InStr(1, Row, "/")
    While i2 > 0
      i1 = InStrRev(Row, "|", i2)
      Row = Left$(Row, i1) + Mid$(Row, i2 + 1)
      i2 = InStr(i1, Row, "/")
    Wend
    Print #2, Row
  Loop
  Close #1
  Close #2
  FileName = Dir
Wend

                        