VBでテキストデータの読み書き

Dim stream As Object
Set stream = CreateObject("ADODB.Stream")

'読取専用(1), 書込専用(2), 読み書き(3)
'他のUser読取拒否(4), 他のUser書込拒否(8), 他のUser読書拒否(12), 他のUser読書許可(16)
stream.Mode = 3

'Text(2), Binary(1)
stream.Type = 2

'(Shift_JIS, Unicode)
stream.Charset = "utf-8"

'CR(13), LF(10), CRLF(-1)
stream.LineSeparator = -1

stream.Open

'【書き込みの場合】
'一行(1), 全行(0)
stream.WriteText "テストテキスト", 1
'上書きしない(1), 上書き(2)
stream.SaveToFile "D:\test.txt", 2

'【読み取りの場合】
'stream.LoadFromFile "C:\test.txt"
'Do Until stream.EOS = True
    '一行(-2), 全行(-1)
    'Debug.Print stream.ReadText(-2)
'Loop

stream.Close
Set stream = Nothing