'//Daten empfangen von der seriellen Schnittstelle
    Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, _
                      ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _
                      Handles SerialPort1.DataReceived
        inputData = SerialPort1.ReadExisting 
        Me.Invoke(New EventHandler(AddressOf DoUpdate))
    End Sub
 
    Public Sub DoUpdate()
        TextBox1.Text = inputData
    End Sub

Dim lines() As String = IO.File.ReadAllLines("C:\.....")

        For Each line As String In lines
            With ListView1.Items
                Dim items() As String = line.Split(":"& ",")
                Dim item As ListViewItem = .Add(items(0))
                item.SubItems.Add(items(1))
                item.SubItems.Add(items(2))
                '...
            End With
        Next