Запись текстового файла с добавлением (utf -8 в кодировке )в VB6

Мне нужно написать текстовый файл в VB6. Мне нужно сделать это в добавлении и в кодировке utf -8.

Я пробовал два решения, одно с "TextStream" и другое с "ADODB.Stream".

Первый:

    Set fsoFile = fso.OpenTextFile(FileIn(fi), ForAppending, True)
    fsoFile.WriteLine "<tag>kkkjòòkkkkjlòlk</tag>"
    fsoFile.Close

Хорошо работает при добавлении, но как я могу записать его в кодировке utf -8?

Второй:

Dim ST As ADODB.Stream

Set ST = New ADODB.Stream
ST.Mode = adModeReadWrite
ST.Type = adTypeText
ST.Charset = "UTF-8"

ST.Open
ST.LoadFromFile FileIn(fi)
ST.Position = ST.Size
ST.WriteText "<tag>kkkjòòkkkkjlòlk</tag>"
ST.SaveToFile FileIn(fi)
ST.Close

Пишите правильно в utf -8 но я не могу записать файл в дописывание, а только с "adSaveCreateOverWrite".

Как мне это сделать? Есть ли другой способ?

Большое спасибо.