Getting Website Text w/ strFindBetween Function [error!]

[claiyah]

try this code:

dim a as long
a = InStr(trimStrLine, strEndPoint) 
if a > 0 then
trimStrLine = Mid$(trimStrLine, 1, a - 1)
end if