I still dont know the above script works, but *assuming* it does, if you want to save the rest of the string, try using the one below...
strLength = Len(fPoem)
'Count the <p>'s
strPos1 = InStr(fPoem, "<p>")
strPos2 = InStr(strPos1, fPoem, "<p>")
strPos3 = InStr(strPos2, fPoem, "<p>")
'Make sure you can save the rest of the string
strLength1 = strLength - strPos3
fPoem1 = Right(fPoem, strLength1)
'Get string until 3rd <p>
fPoem = Left(fPoem, strPos3)
---------------
Da_Stimulator has spoken
Ongoing Project that uses Snitz forums as a backbone for entire website