or
Dim cpolicy As HtmlInputHidden = Pages.TravelInsuranceSalesSystem1.Get(Of HtmlInputHidden)("id=ctl00_ContentPlaceHolder1_TestGrid_ctl02_cpolicy")
For Each r As HtmlTableRow In Pages.TravelInsuranceSalesSystem1.ContentPlaceHolder1TestGridTable.AllRows if r.RowIndex <> 0 then 'ignore the header row For Each c As HtmlTableCell In r.Cells if c.CellIndex = 0 then 'column 1 only Dim cpolicy As HtmlInputHidden = c.Get(Of HtmlInputHidden)("id=~cpolicy") if cpolicy.Equals("TI") then Log.WriteLine("cpolicy:" & cpolicy.Value ) end if end if Next end if Next