1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
Private Sub ISOtoRUS(ByRef the_str As String)
the_str = Replace(the_str, """, Chr(34))
the_str = Replace(the_str, "&", Chr(38))
the_str = Replace(the_str, "<", Chr(60))
the_str = Replace(the_str, ">", Chr(62))
the_str = Replace(the_str, " ", Chr(160))
the_str = Replace(the_str, "¡", Chr(161))
the_str = Replace(the_str, "¢", Chr(162))
the_str = Replace(the_str, "£", Chr(163))
the_str = Replace(the_str, "¤", Chr(164))
the_str = Replace(the_str, "¥", Chr(165))
the_str = Replace(the_str, "¦", Chr(166))
the_str = Replace(the_str, "§", Chr(167))
the_str = Replace(the_str, "¨", Chr(168))
the_str = Replace(the_str, "©", Chr(169))
the_str = Replace(the_str, "ª", Chr(170))
the_str = Replace(the_str, "«", Chr(171))
the_str = Replace(the_str, "¬", Chr(172))
the_str = Replace(the_str, "­", Chr(173))
the_str = Replace(the_str, "®", Chr(174))
the_str = Replace(the_str, "¯", Chr(175))
the_str = Replace(the_str, "°", Chr(176))
the_str = Replace(the_str, "±", Chr(177))
the_str = Replace(the_str, "²", Chr(178))
the_str = Replace(the_str, "³", Chr(179))
the_str = Replace(the_str, "´", Chr(180))
the_str = Replace(the_str, "µ", Chr(181))
the_str = Replace(the_str, "¶", Chr(182))
the_str = Replace(the_str, "·", Chr(183))
the_str = Replace(the_str, "¸", Chr(184))
the_str = Replace(the_str, "¹", Chr(185))
the_str = Replace(the_str, "º", Chr(186))
the_str = Replace(the_str, "»", Chr(187))
the_str = Replace(the_str, "¼", Chr(188))
the_str = Replace(the_str, "½", Chr(189))
the_str = Replace(the_str, "¾", Chr(190))
the_str = Replace(the_str, "¿", Chr(191))
the_str = Replace(the_str, "À", Chr(192))
the_str = Replace(the_str, "Á", Chr(193))
the_str = Replace(the_str, "Â", Chr(194))
the_str = Replace(the_str, "Ã", Chr(195))
the_str = Replace(the_str, "Ä", Chr(196))
the_str = Replace(the_str, "Å", Chr(197))
the_str = Replace(the_str, "Æ", Chr(198))
the_str = Replace(the_str, "Ç", Chr(199))
the_str = Replace(the_str, "È", Chr(200))
the_str = Replace(the_str, "É", Chr(201))
the_str = Replace(the_str, "Ê", Chr(202))
the_str = Replace(the_str, "Ë", Chr(203))
the_str = Replace(the_str, "Ì", Chr(204))
the_str = Replace(the_str, "Í", Chr(205))
the_str = Replace(the_str, "Î", Chr(206))
the_str = Replace(the_str, "Ï", Chr(207))
the_str = Replace(the_str, "Ð", Chr(208))
the_str = Replace(the_str, "Đ", Chr(208))
the_str = Replace(the_str, "Ñ", Chr(209))
the_str = Replace(the_str, "Ò", Chr(210))
the_str = Replace(the_str, "Ó", Chr(211))
the_str = Replace(the_str, "Ô", Chr(212))
the_str = Replace(the_str, "Õ", Chr(213))
the_str = Replace(the_str, "Ö", Chr(214))
the_str = Replace(the_str, "×", Chr(215))
the_str = Replace(the_str, "Ø", Chr(216))
the_str = Replace(the_str, "Ù", Chr(217))
the_str = Replace(the_str, "Ú", Chr(218))
the_str = Replace(the_str, "Û", Chr(219))
the_str = Replace(the_str, "Ü", Chr(220))
the_str = Replace(the_str, "Ý", Chr(221))
the_str = Replace(the_str, "Þ", Chr(222))
the_str = Replace(the_str, "ß", Chr(223))
the_str = Replace(the_str, "à", Chr(224))
the_str = Replace(the_str, "á", Chr(225))
the_str = Replace(the_str, "â", Chr(226))
the_str = Replace(the_str, "ã", Chr(227))
the_str = Replace(the_str, "ä", Chr(228))
the_str = Replace(the_str, "å", Chr(229))
the_str = Replace(the_str, "æ", Chr(230))
the_str = Replace(the_str, "ç", Chr(231))
the_str = Replace(the_str, "è", Chr(232))
the_str = Replace(the_str, "é", Chr(233))
the_str = Replace(the_str, "ê", Chr(234))
the_str = Replace(the_str, "ë", Chr(235))
the_str = Replace(the_str, "ì", Chr(236))
the_str = Replace(the_str, "í", Chr(237))
the_str = Replace(the_str, "î", Chr(238))
the_str = Replace(the_str, "ï", Chr(239))
the_str = Replace(the_str, "ð", Chr(240))
the_str = Replace(the_str, "ñ", Chr(241))
the_str = Replace(the_str, "ò", Chr(242))
the_str = Replace(the_str, "ó", Chr(243))
the_str = Replace(the_str, "ô", Chr(244))
the_str = Replace(the_str, "õ", Chr(245))
the_str = Replace(the_str, "ö", Chr(246))
the_str = Replace(the_str, "÷", Chr(247))
the_str = Replace(the_str, "ø", Chr(248))
the_str = Replace(the_str, "ù", Chr(249))
the_str = Replace(the_str, "ú", Chr(250))
the_str = Replace(the_str, "û", Chr(251))
the_str = Replace(the_str, "ü", Chr(252))
the_str = Replace(the_str, "ý", Chr(253))
the_str = Replace(the_str, "þ", Chr(254))
the_str = Replace(the_str, "ÿ", Chr(255))
End Sub
