This is the code page of the connection for which autECLXfer 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.autECLXfer")
' Initialize the connection
' Save the code page
CodePage = Obj.CodePage