VB6 VBA Append utf-8 with ADODB Stream

1. Sub AppendUTF8File(filename As String, content As String)
2.     Dim strm As New ADODB.Stream
3.     If Dir(filename) = Empty Then
4.         strm.Type = adTypeText
5.         strm.Mode = adModeReadWrite
6.         strm.Open
7.         strm.Charset = "UTF-8"
8.         strm.WriteText content
9.         strm.SaveToFile filename, adSaveCreateOverWrite
10.         strm.Close
11.     Else
12.         strm.Type = adTypeText
13.         strm.Mode = adModeReadWrite
14.         strm.Open
15.         strm.Charset = "UTF-8"
16.         strm.LoadFromFile filename
17.         strm.Position = strm.Size
18.         strm.WriteText content
19.         strm.SaveToFile filename, adSaveCreateOverWrite
20.         strm.Close
21.     End If
22.     Set strm = Nothing
23. End Sub