In tal caso il codice va rivisto, ad esempio:

codice:
 Dim fileContents As String() = System.IO.File.ReadAllLines("C:\log.txt")
        For Each row As String In fileContents
            If row.StartsWith("A28") Then
                Dim TestArray() As String = Split(row.Replace("""", ""), ",", -1, CompareMethod.Text)
                TextBox1.Text = TestArray(0)
                TextBox2.Text = TestArray(1)
                TextBox1.Text = TestArray(2)
                TextBox1.Text = TestArray(3)
                TextBox1.Text = TestArray(4).Substring(0, 5)
            End If
        Next