Изменить кодировку текста в поле Text1 на VB6

Option Base 1
Option Explicit
Option Private Module
'==================================================================================================
'https://www.rondebruin.nl/win/winfiles/7zip_unzipexamples.txt
'==================================================================================================
Public Const PROCESS_QUERY_INFORMATION& = &H400, STILL_ACTIVE& = &H103
'==================================================================================================
Public Enum e_Shell
    Hide = 0
    ShowNormal = 1
    ShowMinimized = 2
    ShowMaximized = 3
    Restore = 9
End Enum
'==================================================================================================
Private Declare PtrSafe Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare PtrSafe Function GetExitCodeProcess Lib "kernel32.dll" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare PtrSafe Function ShellExecuteW Lib "shell32.dll" (ByVal hWnd As Long, ByVal lpOperation As LongLong, ByVal lpFile As LongLong, ByVal lpParameters As LongLong, ByVal lpDirectory As LongLong, ByVal nShowCmd As Long) As LongLong
'==================================================================================================
Function PRDX_API_ShellAndWait(sCommand$)
Dim p&, c&
 
p = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(sCommand, 0&))
 
Do
    GetExitCodeProcess p, c: DoEvents
Loop While (c = STILL_ACTIVE)
 
PRDX_API_ShellAndWait = True
End Function
'==================================================================================================
' ShellExecute: https://learn.microsoft.com/en-us/windows/win32/api/shellapi/nf-shellapi-shellexecutea
'==================================================================================================
Function PRDX_API_ShellExecute_OpenFile(sPath$) As Boolean
    PRDX_API_ShellExecute_OpenFile = (ShellExecuteW(0, StrPtr("open"), StrPtr(sPath), 0, 0, 0) = 42)
'    On Error Resume Next
'    If (ShellExecuteW(0, StrPtr("open"), StrPtr(sPath), 0, 0, 0) = 42) Then PRDX_API_ShellExecute_OpenFile = True: Exit Function
'    If (Err.Number <> 0) Then Err.Clear: Exit Function
'    PRDX_API_ShellExecute_OpenFile = True
End Function