User@Time  Vladimir@ 2004 - 07 - 24   00 : 31 : 58  
Action  Run 
Application Name  test - Microsoft Internet Explorer 

Цикл для чтения
каким то образом считываем инфу из тэгов и переменным присваиваем значение прочитанного...
Dim m as string="Vladimir@2004-07-24 00:31:58 
"
Dim mm as string="Run"
Dim mmm as string="test - Microsoft Internet Explorer"
...
Конец цикла

object[] psa={txt};
mshtml.HTMLDocumentClass doc=new mshtml.HTMLDocumentClass();
doc.IHTMLDocument2_write(psa);

   Dim psa() As Object = {txt}
   Dim doc As mshtml.HTMLDocumentClass = New mshtml.HTMLDocumentClass
   doc.IHTMLDocument2_write(psa)

   Dim psa() As Object = {txt}
   Dim doc As mshtml.HTMLDocumentClass = New mshtml.HTMLDocumentClass
   doc.IHTMLDocument2_write(psa)

  Dim psa( 1 ) As Object
  psa( 0 ) = txt
  doc.IHTMLDocument2_write(psa)

        Dim tr As New StreamReader("c:\test1.htm")
        Dim txt As String = tr.ReadToEnd()
        tr.Close()

        Dim psa() As Object = {txt}
        Dim doc As mshtml.HTMLDocumentClass = New mshtml.HTMLDocumentClass
        doc.IHTMLDocument2_write(psa)

        Dim dd As mshtml.IHTMLElementCollection = doc.getElementsByTagName("table")

        For i As Integer =  0  To dd.length -  1 
            Dim tb As mshtml.HTMLTableClass = dd.item(i)

            For Each row As mshtml.HTMLTableRowClass In tb.rows

                Dim col As mshtml.HTMLTableCellClass = row.cells.item( 0 )
                Dim sl As String = col.innerText
               
                If Not (sl Is Nothing) Then
                    Dim col1 As mshtml.HTMLTableCellClass = row.cells.item( 1 )
                    Dim sl1 As String = col1.innerHTML
                    Debug.WriteLine(sl & sl1)
                End If
            Next
        Next