Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            ListView1.View = View.Details
            ListView1.GridLines = True
            ListView1.FullRowSelect = True
 
            ListView1.Clear()
 
            Dim oSR As New IO.StreamReader("C:\test.csv")
            Dim nSPalten() As String = oSR.ReadLine.Split(", ")
            Dim lstCol As New ListView.ColumnHeaderCollection(ListView1)
 
            For Each sSpalte As String In nSPalten
                lstCol.Add(sSpalte)
            Next
 
            While oSR.Peek > -1
                Dim lstItem As New ListViewItem(oSR.ReadLine.Split(","))
                ListView1.Items.Add(lstItem)
            End While
 
            Return
 
        Catch ex As Exception
            Return
        End Try
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
 
        Dim flines As Integer = ListView1.Items.Count
        Label2.Text = flines
        Dim Lange As String = TextBox1.Text
 
 
        If TextBox1.Text = "" Then
 
        Else
 
 
            For i = 0 To flines - 1
 
                ListView1.Items(i).SubItems(1).Text = CDbl(ListView1.Items( _
                  i).SubItems(1).Text.ToString) - CDbl(Lange)
 
            Next i
 
 
        End If
 
 
 
    End Sub
 
End Class