Lotusscriptによって生成されたTXTファイルのエンコードの問題

'質問：生成されたテキストをオンラインバンキングにインポートできません。最後の考慮事項はエンコードの問題ですが、UTF-8エンコードをgb2313に変更してください。
Dim filepath As String 
Dim fileName As String 
Dim OutputFile As String 
OutputFile = filepath + fileName + "。Txt" 
If Dir $（OutputFile） <> "" Then 
    Kill OutputFile 
End If 

Dim objStream As Variant 
Set objStream = CreateObject（ "ADODB.Stream "）
objStream.Type = 2 
objStream.Mode = 3
' objStream.Charset =" utf-8 "
 objStream.Charset =" gb2312 "' Chartsetを介してエンコーディングを設定します。
objStream.Open 

objStream.WriteText "OBSSSTART"、1 

objStream.WriteText "OBSSEND"、

objStream.Flush 
objStream.Close 
Set objStream = Nothing