Imports System.IO
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim Lesen As New StreamReader("D:\Test.txt")
        Dim NeuerText As String = ""
 
        Dim TextInhalt As String = Lesen.ReadToEnd()
 
        Lesen.Close()
        Lesen = Nothing
 
        Dim Zeile() As String = TextInhalt.Split(ControlChars.NewLine)
 
        Dim Schreiben As New StreamWriter("D:\Neu.txt")
 
        For N As Integer = 0 To Zeile.Length - 1
            Schreiben.WriteLine(Zeile(N).Substring(Zeile(N).IndexOf(Chr(34)) + _
              1, Zeile(N).IndexOf(Chr(34), Zeile(N).IndexOf(Chr(34)) + 1) - _
              Zeile(N).IndexOf(Chr(34)) - 1))
        Next
 
        Schreiben.Close()
        Schreiben = Nothing
 
    End Sub
End Class