Parse this Web Page/Html to return data ... did it in VB but how here

Public Class Form1

    Dim _url As String = "https://www.tulsapolice.org/live-calls-/police-calls-near-you.aspx"

    Public myPubAr As New ArrayList
    Public myLocAr As New ArrayList

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' Nothing Here yet
    End Sub
    Function UpdateCalls()

        myPubAr.Clear()
        myLocAr.Clear()

        wb2.Navigate(_url) ' Navigates to web Page
        Do Until wb2.ReadyState = WebBrowserReadyState.Complete
            Application.DoEvents()

        Loop
        ' ******************** Now to paqrse the page ***********

        Dim myTable As HtmlElement = wb2.Document.All("ctl00_ctl00_ctl00_ContentPlaceHolderDefault_COTSectionTextpagePlaceHolder_ctl00_COT_LiveCallsInArea_9_grdDivision03")
        If myTable IsNot Nothing Then
            For Each myElement As HtmlElement In myTable.GetElementsByTagName("TR")
                Dim myTdTags As HtmlElementCollection = myElement.GetElementsByTagName("TD")

                If myTdTags.Count = 2 Then
                    If myTdTags(0).InnerText = "Description" Or myTdTags(1).InnerText = "Location" Then
                        ' Do Nothing
                    Else
                        myPubAr.Add(myTdTags(0).InnerText)
                        myLocAr.Add(myTdTags(1).InnerText)
                    End If

                End If
            Next
        Else

        End If

        For i As Integer = 1 To myPubAr.Count - 1
            Dim fontBold As New Font(Font.FontFamily, 13, FontStyle.Bold)
            Dim fontRegular As New Font(Font.FontFamily, 12, FontStyle.Regular)

            rtbCalls.SelectionFont = fontBold                                     'Change font size and style before appending
            rtbCalls.AppendText(myPubAr(i)) ' & vbTab & vbTab & myTime) '???Using 'Append descriptions to rich text box
            rtbCalls.SelectionFont = fontRegular                                  'Return font to normal
            rtbCalls.AppendText(vbNewLine & vbTab & myLocAr(i) & vbNewLine)       'Append locations to rich text box
            'lstLoc.Items.Add(myLocAr(i))
        Next
    End Function

    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
        Call UpdateCalls()
    End Sub
End Class

Sub Process_Globals
   Type Row (Description As String, Location As String)
   Private Rows As List
   Private tempRow As Row
End Sub

Sub Globals
   
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Download
End Sub
Sub Download
   Dim j As HttpJob
   j.Initialize("j", Me)
   j.Download("https://www.tulsapolice.org/live-calls-/police-calls-near-you.aspx")
End Sub

Sub JobDone(job As HttpJob)
   If job.Success Then
      Dim jtidy As Tidy
      jtidy.Initialize
      'convert html to xml
      jtidy.Parse(job.GetInputStream, File.DirInternalCache, "1.html")
      Dim sax As SaxParser
      sax.Initialize
      Dim In As InputStream = File.OpenInput(File.DirInternalCache, "1.html")
      Rows.Initialize
      tempRow.Initialize
      sax.Parse(In, "sax")
      In.Close
      Log(Rows)
      
   Else
      ToastMessageShow("Error downloading page.", True)
      Log(job.ErrorMessage)
   End If
   job.Release
End Sub

Sub Sax_EndElement (Uri As String, Name As String, Text As StringBuilder)
   If Name = "td" Then
      If tempRow.Description = "" Then
         tempRow.Description = Text
      Else
         tempRow.Location = Text
         Rows.Add(tempRow)
         Dim tempRow As Row 'create a new object
         tempRow.Initialize
      End If
   End If
End Sub

For i = 0 To Rows.Size - 1
   Dim myString As String
   myString = Rows.Get(i)
        
   If myString.StartsWith("[Description=") Then
        myString =  myString.Replace("[Description=", "")
          lv1.AddSingleLine(myString)
   End If
Next

For Each r As Row in Rows
 lv1.AddSingleLine(r.Description)
Next