ok here's a function that you can use for your problem. It's currently only for <TD> Tags but you can change it to work for the information you need :
Function GetCell(cellnumber, tempstr)
i = 1 ' Text Location Start
q = 1 ' Cell Number Start
' Loop until we have processed the cell we're looking for
Do until q > cellnumber
' Look for <TD the start of a cell
i = InStr(i, UCase(tempstr), "<TD")
' Find the location of the end of the <TD tag
r = InStr(i, tempstr, ">")
' Let the next loop start looking after this <TD tag we found
i = r + 1
' increase the count of which cell we're at
q = q + 1
Loop
' The start of our cell text is right after the last found tag
StartCellText = i
' Now... to find the end of this cell's text, we look for either <TABLE
' or <TD - whichever comes first (but we have to check if they exist or not)
' We don't include nested tables in the cell data because those tables have
' cells of their own.
If (InStr(r, UCase(tempstr), "<TABLE") > 0) AND _
(InStr(r, UCase(tempstr), "<TABLE") < _
InStr(r, UCase(tempstr), "</TD>")) then
ThisCellText = mid(tempstr, StartCellText, _
InStr(r, UCase(tempstr),"<TABLE")- StartCellText )
Else
ThisCellText = mid(tempstr, StartCellText, _
InStr(r, UCase(tempstr), "</TD>")- StartCellText )
End If
GetCell = ThisCellText
End Function
Use it like : GetCell(1,yourstr)
for this function it's GetCell(Cellnr,string)
You could change this function like so
name = GetCell(yourstr,"<div id="1">","</div>")
GetCell(string,beginningtag,endtag)
Hope this helps you on your way...