May be better asking on a web development forum mate.
Not sure what exactly you want in your msg, but you could try sometnig such as,
result = Left(winhttp.ResponseText,50)
or some additional vba to find specific character or length etc.
dear orange
Moderator
thank you very much
the code work in a good way
i changed ( 50 ) to ( 62 ) to show the first line
regards