- Function funConvert(bytOrg As Byte) As Integer
- If bytOrg >= 0 And bytOrg <= 127 Then
- funConvert = bytOrg
- Exit Function
- End If
- Select Case bytOrg
- Case &H80:
- funConvert = &H20AC 'EURO SIGN
- Case 129:
- 'UNDEFINED
- MsgBox "Bad character"
- funConvert = 0
- Case &H82:
- funConvert = &H201A 'SINGLE LOW-9 QUOTATION MARK
- Case 131:
- 'UNDEFINED
- MsgBox "Bad character"
- funConvert = 0
- Case &H84:
- funConvert = &H201E 'DOUBLE LOW-9 QUOTATION MARK
- Case &H85:
- funConvert = &H2026 'HORIZONTAL ELLIPSIS
- Case &H86:
- funConvert = &H2020 'DAGGER
- Case &H87:
- funConvert = &H2021 'DOUBLE DAGGER
- Case 136
- 'UNDEFINED
- MsgBox "Bad character"
- funConvert = 0
- Case &H89:
- funConvert = &H2030 'PER MILLE SIGN
- Case &H8A:
- funConvert = &H160 'LATIN CAPITAL LETTER S WITH CARON
- Case &H8B:
- funConvert = &H2039 'SINGLE LEFT-POINTING ANGLE QUOTATION MARK
- Case &H8C:
- funConvert = &H15A 'LATIN CAPITAL LETTER S WITH ACUTE
- Case &H8D:
- funConvert = &H164 'LATIN CAPITAL LETTER T WITH CARON
- Case &H8E:
- funConvert = &H17D 'LATIN CAPITAL LETTER Z WITH CARON
- Case &H8F:
- funConvert = &H179 'LATIN CAPITAL LETTER Z WITH ACUTE
- Case 144:
- 'UNDEFINED
- MsgBox "Bad character"
- funConvert = 0
- Case &H91:
- funConvert = &H2018 'LEFT SINGLE QUOTATION MARK
- Case &H92:
- funConvert = &H2019 'RIGHT SINGLE QUOTATION MARK
- Case &H93:
- funConvert = &H201C 'LEFT DOUBLE QUOTATION MARK
- Case &H94:
- funConvert = &H201D 'RIGHT DOUBLE QUOTATION MARK
- Case &H95:
- funConvert = &H2022 'BULLET
- Case &H96:
- funConvert = &H2013 'EN DASH
- Case &H97:
- funConvert = &H2014 'EM DASH
- Case 152:
- 'UNDEFINED
- MsgBox "Bad character"
- funConvert = 0
- Case &H99:
- funConvert = &H2122 'TRADE MARK SIGN
- Case &H9A:
- funConvert = &H161 'LATIN SMALL LETTER S WITH CARON
- Case &H9B:
- funConvert = &H203A 'SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
- Case &H9C:
- funConvert = &H15B 'LATIN SMALL LETTER S WITH ACUTE
- Case &H9D:
- funConvert = &H165 'LATIN SMALL LETTER T WITH CARON
- Case &H9E:
- funConvert = &H17E 'LATIN SMALL LETTER Z WITH CARON
- Case &H9F:
- funConvert = &H17A 'LATIN SMALL LETTER Z WITH ACUTE
- Case &HA0:
- funConvert = &HA0 'NO-BREAK SPACE
- Case &HA1:
- funConvert = &H2C7 'CARON
- Case &HA2:
- funConvert = &H2D8 'BREVE
- Case &HA3:
- funConvert = &H141 'LATIN CAPITAL LETTER L WITH STROKE
- Case &HA4:
- funConvert = &HA4 'CURRENCY SIGN
- Case &HA5:
- funConvert = &H104 'LATIN CAPITAL LETTER A WITH OGONEK
- Case &HA6:
- funConvert = &HA6 'BROKEN BAR
- Case &HA7:
- funConvert = &HA7 'SECTION SIGN
- Case &HA8:
- funConvert = &HA8 'DIAERESIS
- Case &HA9:
- funConvert = &HA9 'COPYRIGHT SIGN
- Case &HAA:
- funConvert = &H15E 'LATIN CAPITAL LETTER S WITH CEDILLA
- Case &HAB:
- funConvert = &HAB 'LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
- Case &HAC:
- funConvert = &HAC 'NOT SIGN
- Case &HAD:
- funConvert = &HAD 'SOFT HYPHEN
- Case &HAE:
- funConvert = &HAE 'REGISTERED SIGN
- Case &HAF:
- funConvert = &H17B 'LATIN CAPITAL LETTER Z WITH DOT ABOVE
- Case &HB0:
- funConvert = &HB0 'DEGREE SIGN
- Case &HB1:
- funConvert = &HB1 'PLUS-MINUS SIGN
- Case &HB2:
- funConvert = &H2DB 'OGONEK
- Case &HB3:
- funConvert = &H142 'LATIN SMALL LETTER L WITH STROKE
- Case &HB4:
- funConvert = &HB4 'ACUTE ACCENT
- Case &HB5:
- funConvert = &HB5 'MICRO SIGN
- Case &HB6:
- funConvert = &HB6 'PILCROW SIGN
- Case &HB7:
- funConvert = &HB7 'MIDDLE DOT
- Case &HB8:
- funConvert = &HB8 'CEDILLA
- Case &HB9:
- funConvert = &H105 'LATIN SMALL LETTER A WITH OGONEK
- Case &HBA:
- funConvert = &H15F 'LATIN SMALL LETTER S WITH CEDILLA
- Case &HBB:
- funConvert = &HBB 'RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
- Case &HBC:
- funConvert = &H13D 'LATIN CAPITAL LETTER L WITH CARON
- Case &HBD:
- funConvert = &H2DD 'DOUBLE ACUTE ACCENT
- Case &HBE:
- funConvert = &H13E 'LATIN SMALL LETTER L WITH CARON
- Case &HBF:
- funConvert = &H17C 'LATIN SMALL LETTER Z WITH DOT ABOVE
- Case &HC0:
- funConvert = &H154 'LATIN CAPITAL LETTER R WITH ACUTE
- Case &HC1:
- funConvert = &HC1 'LATIN CAPITAL LETTER A WITH ACUTE
- Case &HC2:
- funConvert = &HC2 'LATIN CAPITAL LETTER A WITH CIRCUMFLEX
- Case &HC3:
- funConvert = &H102 'LATIN CAPITAL LETTER A WITH BREVE
- Case &HC4:
- funConvert = &HC4 'LATIN CAPITAL LETTER A WITH DIAERESIS
- Case &HC5:
- funConvert = &H139 'LATIN CAPITAL LETTER L WITH ACUTE
- Case &HC6:
- funConvert = &H106 'LATIN CAPITAL LETTER C WITH ACUTE
- Case &HC7:
- funConvert = &HC7 'LATIN CAPITAL LETTER C WITH CEDILLA
- Case &HC8:
- funConvert = &H10C 'LATIN CAPITAL LETTER C WITH CARON
- Case &HC9:
- funConvert = &HC9 'LATIN CAPITAL LETTER E WITH ACUTE
- Case &HCA:
- funConvert = &H118 'LATIN CAPITAL LETTER E WITH OGONEK
- Case &HCB:
- funConvert = &HCB 'LATIN CAPITAL LETTER E WITH DIAERESIS
- Case &HCC:
- funConvert = &H11A 'LATIN CAPITAL LETTER E WITH CARON
- Case &HCD:
- funConvert = &HCD 'LATIN CAPITAL LETTER I WITH ACUTE
- Case &HCE:
- funConvert = &HCE 'LATIN CAPITAL LETTER I WITH CIRCUMFLEX
- Case &HCF:
- funConvert = &H10E 'LATIN CAPITAL LETTER D WITH CARON
- Case &HD0:
- funConvert = &H110 'LATIN CAPITAL LETTER D WITH STROKE
- End Select
- End Function