[VB.NET] Leggere file di testo e trovare una corrispondenza

[x69asterix]

bo...
a me non ritorna nessun valore nella textbox

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fileContents As String() = System.IO.File.ReadAllLines("C:\log.txt")
        For Each row As String In fileContents
            If row.StartsWith("555") Then
                Dim TestArray() As String = Split(row.Replace("""", ""), ",", -1, CompareMethod.Text)
                TextBox1.Text = TestArray(0)
           
            End If
        Next

    End Sub