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