مساعدة في ترميز الملف النصي

السلام عليكــم ورحمـة الله وبركاتــه ،،

الى الأعضاء الكرام انفذ كود لقراء ملف نصي ولكنني احتاج الى تغيير ترميزه أو تنسيقه الى ansi بدلا من utf-8

كود القراءه

Dim st As New Stream
Set st = New Stream
st.Charset = "Utf-8" 'or "windows-1256"
st.Open
st.LoadFromFile ("C:\amn.TXT")
Dim sx  As String
sx = st.ReadText
RCH.Text = sx
st.Close
Command1 = True

كود الكتابه

Dim st As New Stream
Dim sx  As String

Set st = New Stream
st.Charset = "Utf-8" 'or "windows-1256"
st.Open
sx = RCH.Text & Trim("")
st.WriteText sx
Kill ("C:\Amn.TXT")
st.SaveToFile ("C:\Amn.TXT")
st.Close