This is the code page of the connection for which autECLPS was set. This code page may change over time. CodePage is a Long data type and is read-only. The following example shows this property.

DIM  CodePage as Long
DIM  Obj as Object
Set Obj = CreateObject("ZIEWin.autECLPS")
' Initialize the connection
' Save the code page
CodePage = Obj.CodePage