Encoding.bas

Attribute VB_Name = "Encoding"
Public ENCODING_ASCII As String
Public ENCODING_BIG_ENDIAN_UNICODE As String
Public Public ENCODING_UTF16 As String
Public ENCODING_UTF32 As String
Public ENCODING_UTF7 As String
Public ENCODING_UTF8 As String

Sub Initialize()
    ENCODING_ASCII = "ASCII"
    ENCODING_BIG_ENDIAN_UNICODE = "unicodeFFFE"
    ENCODING_UTF16 = "UTF-16"
    ENCODING_UTF32 = "UTF-32"
    ENCODING_UTF7 = "UTF-7"
    ENCODING_UTF8 = "UTF-8"
End Sub