The documentation says:
The Name and Value are separated by a colon for each header and the headers are delimited by an EndOfLine.
If you follow the document advice (and code example), you will get two diamonds instead of an End Of Line.
TA.Text = data.DefineEncoding(Encodings.UTF8)
data holds the InternetHeaders you requested.
Assigning an encoding to data will do the trick.