from XLS -> notepad: incomplete text & UTF-8

[pm]

hello,

i have such a code in VBA:

Dim FF As Integer
Dim fileHTML As String
Dim tekst As String
Dim rng As Range

fileHTML = Sheets("import").Range("D8").Value
FF = FreeFile
Open fileHTML For Output As #FF
For Each rng In Sheets("export").Range("H4:H16358")
tekst = rng.text
Print #FF, tekst
Next
Close #FF

short explanation:
there is HTML code in range: H4:H16358, in which i've declared UTF-8,
and same values in several cells from this range are longer than 512 (or 1024 digits)
what cause 2 problems:

1. default notepad charset is ANSII. how can i change it into UTF-8?

2. values longer than 512 (or 1024) digits are cut, what cause lack in html code

rgs
pm