Dim i As Integer
        Dim s As String = ""
        Dim x As Integer
        For i = 1 To newColObj.Count
            s = newColObj.Item(i)
 
            Dim strText = s.Split(";")
            For x = 0 To strText.Length - 1
                MsgBox(strText(x))
                Dim A1 = strText(0)
                Dim A2 = strText(1)
                Dim A3 = strText(2)
 
                ListView1.Items.Add(New ListViewItem(New String() {A1, A2, A3}))
            Next
        Next