Dim Separators() As String
        Dim Result As String = ""
        Dim Fields() As String
        Separators = _
            New String() {":", ","} 
        Fields = _
         inputData.Split(Separators, StringSplitOptions.None)
        For i = 0 To Fields.GetUpperBound(0)
            Result &= Fields(i) & ControlChars.CrLf
        Next
 
             With ListView1.Items
                Dim item As ListViewItem
                item = .Add(Fields(0))
                item.SubItems.Add(Fields(1))
                item.SubItems.Add(Fields(2))
                item.SubItems.Add(Fields(3))
                item.SubItems.Add(Fields(4))
                item.SubItems.Add(Fields(5))
                item.SubItems.Add(Fields(6))
                item.SubItems.Add(Fields(7))
                item.SubItems.Add(Fields(8))
                item.SubItems.Add(Fields(9))
                item.SubItems.Add(My.Computer.Clock.LocalTime.ToString) ' Zeit
 
            End With