Hello. I have this piece of code:

vb Code:
  1. Public Sub LoadContact()

  2.         With frmMain

  3.             If IO.File.Exists(Application.StartupPath & "\Info\Contacts.vis") Then

  4.                 Dim sr As New IO.StreamReader(Application.StartupPath & "\Info\Contacts.vis")

  5.                 While (sr.EndOfStream <> True)

  6.                     Dim sLine As String = sr.ReadLine

  7.                     Dim sSI() As String = Split(sLine, "|")

  8.                     sTitle.Add(sSI(0))

  9.                     sFullName.Add(sSI(1))

  10.                     sPhone.Add(sSI(2))

  11.                     sExt.Add(sSI(3))

  12.                     sFax.Add(sSI(4))

  13.                     sAddress1.Add(sSI(5))

  14.                     sAddress2.Add(sSI(6))

  15.                     sAddress3.Add(sSI(7))

  16.                     sCity.Add(sSI(8))

  17.                     sState.Add(sSI(9))

  18.                     sZipCode.Add(sSI(10))

  19.                     sEmail.Add(sSI(11))

  20.                     ContactInfo.Add(sTitle(iCount).ToString & "|" & sFullName(iCount).ToString & "|" & _

  21.                                     sPhone(iCount).ToString & "|" & sExt(iCount).ToString & "|" & _

  22.                                     sFax(iCount).ToString & "|" & sAddress1(iCount).ToString & "|" & _

  23.                                     sAddress2(iCount).ToString & "|" & sAddress3(iCount).ToString & "|" & _

  24.                                     sCity(iCount).ToString & "|" & sState(iCount) & "|" & _

  25.                                     sZipCode(iCount).ToString & "|" & sEmail(iCount).ToString)

  26.                     .lstContacts.BeginUpdate()

  27.                     .lstContacts.Items.Clear()

  28.                     For i As Integer = 0 To UBound(ContactInfo.ToArray)

  29.                         .lstContacts.Items.Add(sFullName(i))

  30.                         .lstvwContacts.Items.Add(sTitle(i))

  31.                         Dim lstitm1, lstitm2, lstitm3 As New ListViewItem.ListViewSubItem

  32.                         lstitm1.Text = sFullName(i)

  33.                         lstitm2.Text = sAddress1(i)

  34.                         lstitm3.Text = sEmail(i)

  35.                         .lstvwContacts.Items(iCount).SubItems.AddRange(New ListViewItem.ListViewSubItem() {lstitm1, lstitm2, lstitm3})

  36.                     Next

  37.                     .lstContacts.EndUpdate()

  38.                     iCount += 1

  39.                 End While

  40.                 sr.Close()

  41.             End If

  42.         End With

  43.     End Sub

So what it does, is it reads the contents of a text file and then loads all the info into a listarray, then I add those contents into a listview. Whats happening is:

say I have

123 123 123 123
1234 1234 1234 1234

in my Text File

When It loads to my ListView it does this

123 123 123 123
1234 1234 1234 1234
1234

It adds the Last Item Twice, but, only in the first column.

Whats my Issue and how can I fix this?