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