<td>NAME 1</td>
<td>1111</td>
<td>&nbsp;&nbsp;SGF, V</td>
<td>&nbsp;&nbsp;46</td>
<td>&nbsp;&nbsp;STGA</td>
<td>&nbsp;&nbsp;</td>
</tr>
<tr>
<td>NAME 2</td>
<td>1234</td>
<td>&nbsp;&nbsp;GF, C</td>
<td>&nbsp;&nbsp;57</td>
<td>&nbsp;&nbsp;WR</td>
<td>&nbsp;&nbsp;</td>
</tr>
<tr>
<td>NAME 3</td>
<td>4213</td>
<td>&nbsp;&nbsp;SGF, V</td>
<td>&nbsp;&nbsp;46</td>
<td>&nbsp;&nbsp;SG</td>
<td>&nbsp;&nbsp;</td>

dim...
set ...
With ie
        .navigate "....."
        'What goes here to get that value?
End With

Sub test1()
  Dim wflag As Boolean
  Dim s2 As String
  Dim i1 As Long
  Dim LOIE As Object
  Set LOIE = CreateObject("internetexplorer.application")
  With LOIE
    .Visible = True
    .navigate "http://www.mulberrypatch.com/test1.htm"
    wflag = lWait(LOIE)
    For i1 = 0 To LOIE.document.all.tags("TD").Length - 1
      s2 = LOIE.document.all.tags("TD").Item(i1).innertext
      If s2 = "NAME 1" Then
        MsgBox LOIE.document.all.tags("TD").Item(i1 + 1).innertext
        Exit For
      End If
    Next i1
  End With
End Sub
Function lWait(LOIE As Object) As Boolean
  Dim t1 As Long
  Dim t2 As Long
  On Error Resume Next
  t1 = Timer
  t2 = t1 + 60
  Do
    If Timer > t2 Then lWait = False: Exit Function
    If VarType(LOIE.document) = vbString Then Exit Do
  Loop
  Do
    If Timer > t2 Then lWait = False: Exit Function
    If LOIE.busy = False Then Exit Do
  Loop
  Do
    If Timer > t2 Then lWait = False: Exit Function
    If VarType(LOIE.document.readystate) = "C" Then Exit Do
  Loop
  Do
    If Timer > t2 Then lWait = False: Exit Function
    If LOIE.document.readystate = "complete" Then Exit Do
  Loop
  lWait = True
End Function

    For i1 = 0 To ie2.Document.all.tags("TD").Length - 1
      s2 = ie2.Document.all.tags("TD").Item(i1).innertext
      If InStr(LCase(s2), LCase(strStreetName)) Then
        a = a & vbNewLine & s2 & " - " & ie2.Document.all.tags("TD").Item(i1 + 1).innertext
        'Exit For
      End If
    Next i1

MsgBox "Possible Matches: " & a

Sub test1()
  Dim s0 As String
  Cells.Delete
  s0 = findit("Person")
End Sub
Function findit(searchtarget As String) As String
  Dim wflag As Boolean
  Dim s2 As String
  Dim i1 As Long
  Dim i2 As Long
  Dim i3 As Long
  Dim i4 As Long
  Dim LOIE As Object
  Set LOIE = CreateObject("internetexplorer.application")
  i4 = ActiveSheet.UsedRange.Rows.Count + 1
  With LOIE
    .Visible = True
    .navigate "http://quickfacts.census.gov/qfd/states/00000.html"
    wflag = lWait(LOIE)
    For i1 = 0 To LOIE.document.all.tags("TABLE").Length - 1
      With .document.all.tags("TABLE").Item(i1)
        If InStr(.outerhtml, searchtarget) > 0 Then
          For i2 = 0 To .all.tags("TR").Length - 1
            With .all.tags("TR").Item(i2).all
              If VarType(.tags("TD").Item(0)) <> 9 Then
                If InStr(.tags("TD").Item(0).innertext, searchtarget) > 0 Then
                  For i3 = 0 To .tags("TD").Length - 1
                    Cells(i4, i3 + 1).Value = .tags("TD").Item(i3).innertext
                    Cells.Columns.AutoFit
                  Next i3
                  i4 = i4 + 1
                End If
              End If
            End With
          Next i2
        End If
      End With
    Next i1
    .Quit
  End With
End Function

if ((zip_code == "123456") ||
	 (zip_code == "23456") ||
	 (zip_code == "45678") ||
	 (zip_code == "56789"))
{
	var pdf_window1 = window.open(fulllink,'pdf_window1');
}
else
{
	alert ("There is NO New York Fire Code information for the zip code you entered: "+zip_code);

    For i1 = 0 To LOIE.Document.all.tags("TABLE").Length - 1
      With .Document.all.tags("TABLE").Item(i1)
        If InStr(LCase(.outerHTML), LCase(searchtarget)) > 0 Then
          For i2 = 0 To .all.tags("TR").Length - 1
            With .all.tags("TR").Item(i2).all
              If VarType(.tags("TD").Item(0)) <> 9 Then
                If InStr(LCase(.tags("TD").Item(0).innertext), LCase(searchtarget)) > 0 Then
                  'For i3 = 0 To .tags("TD").Length - 1
                    'Cells(i4, i3 + 1).Value = .tags("TD").Item(i3).innertext
                    'Cells.Columns.AutoFit
(1).innertext
                    frmTerr.lstTerr.AddItem .tags("TD").Item(0).innertext & " - " & .tags("TD").Item(1).innertext
                  'Next i3
                  i4 = i4 + 1
                End If
              End If
            End With
          Next i2
        End If
      End With
    Next i1
    .Quit