同じようにLotusScriptからNotesStreamでOpenでUTF-8を指定しても、Shift-JISになるため、ADODB.StreamをOLEで呼び出して、UTF-8になりました。 Sub Initialize Dim objStream As variant Set objStream = CreateObject("ADODB.Stream") objStream.Charset = "UTF-8" '文字コードをUTF-8 objStream.Open 'ファイルオープン objStream.WriteText "テキスト", 1 '文字列+改行を書き込む objStream.WriteText "テキスト", 0 '文字列のみ書き込む objStream.SaveToFile "d:\a.txt", 2 'ファイルがある場合に上書き保存する objStream.SaveToFile "d:\b.txt", 1 'ファイルがない場合にファイル保存する objStream.Close 'ファイルクローズ Set objStream = Nothing End Sub