Problema de codificación del archivo TXT generado por Lotusscript

'Pregunta: El txt generado no puede importarse a la banca en línea. La consideración final es el problema de codificación. Efectivamente, modifique la codificación UTF-8 a gb2313. 
Dim filepath As String 
Dim fileName As String 
Dim OutputFile As String 
OutputFile = filepath + fileName + ". Txt" 
If Dir $ (OutputFile) <> "" Entonces 
    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 "' Establezca la codificación a través de Chartset. 
objStream.Open 

objStream.WriteText "OBSSSTART", 1 

objStream.WriteText "OBSSEND",

objStream.Flush 
objStream.Close 
Establecer objStream = Nada