ADODB.Stream vba существует ли дозапись

Формулировка задачи:

Господа приветствую.
Подскажите как выйти из положения.
Есть у меня например 5 заполненных ячеек.
Я хочу записать в текстовый файл их друг за другом в кодировке utf-8

Sub Save2File(sText, sFile)
    Dim oStream
    Set oStream = CreateObject("ADODB.Stream")
    With oStream
        .Open
        .Charset = "utf-8"
        .Appendtext sText
        .SaveToFile sFile, 2
        
    End With
    Set oStream = Nothing
End Sub

но он перезаписывает каждую запись, а как сделать дозапись типа ioStream.appendtext я не понял.
обращение к функции Save2File "Привет", "c:\test" происходит в цикле
Либо если дозаписи потока не существует, как обойти данную проблему.
Буду признателен за помощь.
В MS не постю.

Решение задачи: «ADODB.Stream vba существует ли дозапись»

textual
                            Листинг программы 
                        

                            Sub Save2File(sText, sFile)
    Dim oStream
    Set oStream = CreateObject("ADODB.Stream")

    With oStream
        .Position = ???
        .Open
        .Charset = "utf-8"
        .Appendtext sText
        .SaveToFile sFile, 2
        
    End With
    Set oStream = Nothing
End Sub

                        