Do until match instead of endofstream

[Eksbee]

            
Dim xRead As StreamReader = New StreamReader(FilePath, System.Text.Encoding.Default)

Dim R As New Regex("""(.*)"",""" & MyTextbox.Text & "(.*)"",""(.*)"",.")
            'read the file
            Do Until xRead.EndOfStream
                For Each M As Match In R.Matches(xRead.ReadLine)
                    MexIDResultTB.Text = M.Groups(1).Value
                    CompanyNameTB.Text = M.Groups(3).Value
                Next
            Loop

I need something like

Read the file line by line until a match is found then exit the loop