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
        'I tako dalje
    End Select


End Function