Working with CSV/Tab characters

   Sub OpenFile(sFile As String)

        Dim sLastName As String = ""

        Dim sFirstName As String = ""

        Dim sSite As String = ""

        Dim sSchDOS As String = ""

        Dim sIntv As String = ""

        Dim sTestDate As String = ""

        Dim sTestTime As String = ""

        Dim sDOB As String = ""

        Dim sCase As String = ""

        Dim sSubject As String = ""

        Try

            ToolStripStatusLabel1.Text = "Loading at: " & Now

            Dim tfp As New TextFieldParser(sFile)

            tfp.Delimiters = New String() {vbTab}

            tfp.TextFieldType = FieldType.Delimited

            ListView1.Items.Clear()

            ListView1.BeginUpdate()

            tfp.ReadLine() ' skip header

            While tfp.EndOfData = False

                '"Last.Name"      "First.Name"  "site" "Sch.dos"     "intv" "testdate"    "testtime"       "dob"  "case" "subject"

                Dim fields = tfp.ReadFields()

                sLastName = fields(0)

                sFirstName = fields(1)

                sSite = fields(2)

                sSchDOS = fields(3)

                sIntv = fields(4)

                sTestDate = fields(5)

                sTestTime = fields(6)

                sDOB = fields(7)

                sCase = fields(8)

                sSubject = fields(9)

                Dim lvItem As ListViewItem = ListView1.Items.Add(sLastName)

                lvItem.SubItems.Add(sFirstName)

                lvItem.SubItems.Add(sSite)

                lvItem.SubItems.Add(sSchDOS)

                lvItem.SubItems.Add(sIntv)

                lvItem.SubItems.Add(sTestDate)

                lvItem.SubItems.Add(sTestTime)

                lvItem.SubItems.Add(sDOB)

                lvItem.SubItems.Add(sCase)

                lvItem.SubItems.Add(sSubject)

                '"Last.Name"      "First.Name"  "site" "Sch.dos"     "intv" "testdate"    "testtime"       "dob"  "case" "subject"

                Dim sToolTip As String = String.Format("{0} {1} {2} {3} {4} {5} {6} {7} {8} {9}", sLastName, sFirstName, sSite, sSchDOS, sIntv, sTestDate, sTestTime, sDOB, sCase, sSubject)

                lvItem.ToolTipText = sToolTip

                lvItem.Tag = sSubject

                Console.WriteLine(sToolTip)

            End While

            ListView1.EndUpdate()

            ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)

            ToolStripStatusLabel1.Text = "Refreshed at: " & Now & "    Data Timestamp: " & My.Computer.FileSystem.GetFileInfo(sFile).LastWriteTime.ToShortDateString & " " &

               My.Computer.FileSystem.GetFileInfo(sFile).LastWriteTime.ToShortTimeString

        Catch ex As Exception

            ToolStripStatusLabel1.Text = "Error (OpenFile) at: " & Now & " " & ex.Message.ToString

        End Try

    End Sub