Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button8.Click
        If ListView2.Items.Count > 0 Then
 
            If IO.File.Exists(Application.StartupPath & "\ErlProz.txt") = True _
              Then
                IO.File.Delete(Application.StartupPath & "\ErlProz.txt")
            End If
            Dim FStxt As New IO.FileStream(Application.StartupPath & _
              "\ErlProz.txt", IO.FileMode.OpenOrCreate, IO.FileAccess.Write)
 
            Dim TxTWrite As New IO.StreamWriter(FStxt)
            Dim SchreibeListView As Integer = 0
 
            For SchreibeListView = 0 To ListView2.Items.Count - 1
                TxTWrite.WriteLine(ListView2.Items(SchreibeListView).Text)
                Dim text As Integer = 0
                text = ListView2.Items(SchreibeListView).SubItems.Count
                If ListView2.Items(SchreibeListView).SubItems(2) Is Nothing Then
                    TxTWrite.WriteLine("*#*")
                Else
 
                    TxTWrite.WriteLine(ListView2.Items( _
                      SchreibeListView).SubItems(1).Text)
                End If
Next
            TxTWrite.Close()
            FStxt.Close()
 
        End If
    End Sub