Function ConvertHex2Win(strString)
    strHexCharArray = "\'00,\'01,\'02,\'03,\'04,\'05,\'06,\'07,\'08,\'09,\'0a,\'0b," _
    & "\'0c,\'0d,\'0e,\'0f,\'10,\'11,\'12,\'13,\'14,\'15,\'16,\'17,\'18,\'19,\'1a," _
    & "\'1b,\'1c,\'1d,\'1e,\'1f,\'20,\'21,\'22,\'23,\'24,\'25,\'26,\'27,\'28,\'29," _
    & "\'2a,\'2b,\'2c,\'2d,\'2e,\'2f,\'30,\'31,\'32,\'33,\'34,\'35,\'36,\'37,\'38," _
    & "\'39,\'3a,\'3b,\'3c,\'3d,\'3e,\'3f,\'40,\'41,\'42,\'43,\'44,\'45,\'46,\'47," _
    & "\'48,\'49,\'4a,\'4b,\'4c,\'4d,\'4e,\'4f,\'50,\'51,\'52,\'53,\'54,\'55,\'56," _
    & "\'57,\'58,\'59,\'5a,\'5b,\'5c,\'5d,\'5e,\'5f,\'60,\'61,\'62,\'63,\'64,\'65," _
    & "\'66,\'67,\'68,\'69,\'6a,\'6b,\'6c,\'6d,\'6e,\'6f,\'70,\'71,\'72,\'73,\'74," _
    & "\'75,\'76,\'77,\'78,\'79,\'7a,\'7b,\'7c,\'7d,\'7e,\'7f," _
    & "\'80,\'81,\'82,\'83,\'84,\'85,\'86,\'87,\'88,\'89,\'8A,\'8B,\'8C,\'8D,\'8E,\'8F,\'90," _
    & "\'91,\'92,\'93,\'94,\'95,\'96,\'97,\'98,\'99,\'9A,\'9B'9C,\'9D,\'9E,\'9F," _
    & "\'A0,\'A1,\'A2,\'A3,\'A4,\'A5,\'A6,\'A7,\'A8,\'A9,\'AA,\'AB,\'AC,\'AD," _
    & "\'AE,\'AF,\'B0,\'B1,\'B2,\'B3,\'B4,\'B5,\'B6,\'B7,\'B8,\'B9,\'BA,\'BB,\'BC,\'BD,\'BE,\'BF," _
    & "\'C0,\'C1,\'C2,\'C3,\'C4,\'C5,\'C6,\'C7,\'C8,\'C9,\'CA,\'CB,\'CC,\'CD,\'CE,\'CF,\'D0,\'D1,\'D2," _
    & "\'D3,\'D4,\'D5,\'D6,\'D7,\'D8,\'D9,\'DA,\'DB,\'DC,\'DD,\'DE,\'DF,\'E0,\'E1," _
    & "\'E2,\'E3,\'E4,\'E5,\'E6,\'E7,\'E8,\'E9,\'EA,\'EB,\'EC,\'ED,\'EE,\'EF," _
    &"\'F0,\'F1,\'F2,\'F3,\'F4,\'F5,\'F6,\'F7,\'F8,\'F9,\'FA,\'FB,\'FC," _
    & "\'FD,\'FE,\'FF"
    HexCharArray = Split(strHexCharArray, ",")
    For i = 0 To Ubound(HexCharArray)
        strString = Replace(strString, LCase(HexCharArray(i)), Chr(i+1))
    Next
    ConvertHex2Win = strString
End Function