Do 
  ' nach </textarea> suchen
  nPos = InStr(1, sHTML, "</textarea>", vbTextCompare)
  If nPos > 0 Then
    ' alles links davor in einen temporäre Zwischen-String lesen
    sBuffer = Left$(sHTML, nPos - 1)
    sHTML = Mid$(sHTML, nPos + 11)
 
    ' jetzt nach dem letzten > Zeichen suchen
    nPos = InStrRev(sBuffer, ">")
    If nPos > 0 Then
      ' Text extrahieren
      sBuffer = Mid$(sBuffer, nPos + 1)
 
      MsgBox sBuffer
    End If
  Else
    Exit Do
  End If
Loop

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de