For i As Integer = 0 To ListView1.Items.Count - 1
 
 
            'MP3 DATEI IN BYTE ARRAY LADEN
            Dim FS As New IO.FileStream(ListView1.Items.Item(i).SubItems.Item( _
              2).Text, IO.FileMode.Open)
            Dim BR As New IO.BinaryReader(FS)
 
            ReDim Data(FS.Length - 1)
            Data = BR.ReadBytes(FS.Length)
            FS.Close()
            BR.Close()
 
 
            '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
 
            'SCHREIBE LOOP INFORMATIONEN IN MP3 UND PSEUDODATEI (AMP3) ERSTELLEN
            Dim FS2 As New FileStream(txt_Pathfolder.Text & "\" & TextBox1.Text _
              & ".amp3", IO.FileMode.Create, FileAccess.Write)
            Dim BW As New BinaryWriter(FS2)
 
            'Start/End Loop Point von Textbox
            Dim buffer1 As Byte() = BitConverter.GetBytes(CInt(TextBox6.Text))
            Dim buffer2 As Byte() = BitConverter.GetBytes(CInt(TextBox7.Text))
 
            Array.Reverse(buffer1, 0, 4)
            Array.Reverse(buffer2, 0, 4)
 
            'Schreibe Start/End Loop Point am anfang der MP3
            BW.BaseStream.Write(buffer1, 0, 4)
            BW.BaseStream.Write(buffer2, 0, 4)
 
            'Loop? 1=Ja
            BW.Write(1)
 
            'Byte Array MP3 Datei
            BW.Write(Data)
 
            FS2.Close()
            BW.Close()
 
        Next

ListView1.Items.Item(i).SubItems.Item(2).Text