Dim HTMLCode As String

Dim FileNumber As Integer
FileNumber = FreeFile
Open "C:\Website.htm" For Binary Access Read As #FileNumber
Get #FileNumber, , HTMLCode
Close #FileNumber

Dim i As Long
Dim TDFound As Boolean
Dim ReadVar As Boolean
Dim Vars() As String
Dim VarCount As Long
TDFound = False
ReadVar = False
VarCount = 0
For i = 0 To Len(HTMLCode) - 1
  If Not ReadVar Then
    If Not TDFound Then
      If LCase(Mid(HTMLCode, i, 2)) = "td" Then
        TDFound = True
      End If
    Else
      If LCase(Mid(HTMLCode, i, 1)) = ">" And _
          LCase(Mid(HTMLCode, i + 1, 6)) <> "<input" And _
          LCase(Mid(HTMLCode, i + 1, 7)) <> "  </td>" And _
          LCase(Mid(HTMLCode, i + 1, 5)) <> "</td>" Then
        ReadVar = True
        VarCount = VarCount + 1
        Redim Preserve Vars(VarCount - 1)
        Vars(VarCount - 1) = ""
      End If
    End If
  Else
    If LCase(Mid(HTMLCode, i, 5)) <> "</td>" Then
      Vars(VarCount) = Vars(VarCount) & Mid(HTMLCode, i, 1)
    Else
      ReadVar = False
      TDFount = False
    End If
  End If
Next i

mfg cndg