1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38
39. 39
40. 40
41. 41
42. 42
43. 43
44. 44
45. 45
46. 46
47. 47
48. 48
49. 49
50. 50
51. 51
52. 52
53. 53
54. 54
55. 55
56. 56
57. 57
58. 58

Dim tmpStr As String = ""

        If E >= 100 And E <= 109 Then tmpStr = "Жёлтый"
        If E >= 110 And E <= 119 Then tmpStr = "Оранжевый"
        If E >= 120 And E <= 129 Then tmpStr = "Красный"
        If E >= 130 And E <= 139 Then tmpStr = "Синий/Фиолетовый"
        If E >= 140 And E <= 149 Then tmpStr = "Зелёный"
        If E >= 150 And E <= 159 Then tmpStr = "Коричневый/Чёрный"
        If E >= 160 And E <= 199 Then tmpStr = "Другие"

        If E >= 200 And E <= 209 Then tmpStr = "Сорбат"
        If E >= 210 And E <= 219 Then tmpStr = "Бензоат"
        If E >= 220 And E <= 229 Then tmpStr = "Сульфит"
        If E >= 230 And E <= 239 Then tmpStr = "Фенол/Формиат(метаноат)"
        If E >= 240 And E <= 259 Then tmpStr = "Нитрат"
        If E >= 260 And E <= 269 Then tmpStr = "Ацетат (этаноат)"
        If E >= 270 And E <= 279 Then tmpStr = "Лактат"
        If E >= 280 And E <= 289 Then tmpStr = "Пропиноат (пропаноат)"
        If E >= 290 And E <= 299 Then tmpStr = "Другие"

        If E >= 300 And E <= 305 Then tmpStr = "Сорбат"
        If E >= 306 And E <= 309 Then tmpStr = "Бензоат"
        If E >= 310 And E <= 319 Then tmpStr = "Сульфит"
        If E >= 320 And E <= 329 Then tmpStr = "Фенол/Формиат(метаноат)"
        If E >= 330 And E <= 339 Then tmpStr = "Нитрат"
        If E >= 340 And E <= 349 Then tmpStr = "Ацетат (этаноат)"
        If E >= 350 And E <= 359 Then tmpStr = "Лактат"
        If E >= 360 And E <= 369 Then tmpStr = "Пропиноат (пропаноат)"
        If E >= 370 And E <= 399 Then tmpStr = "Другие"

        If E >= 400 And E <= 409 Then tmpStr = "Альгинат"
        If E >= 410 And E <= 419 Then tmpStr = "Камедь"
        If E >= 420 And E <= 429 Then tmpStr = "Природное вещество"
        If E >= 430 And E <= 439 Then tmpStr = "Соединение полиоксиэтилена"
        If E >= 440 And E <= 449 Then tmpStr = "Природный эмульгатор"
        If E >= 450 And E <= 459 Then tmpStr = "Фосфат"
        If E >= 460 And E <= 469 Then tmpStr = "Соединение целлюлозы"
        If E >= 470 And E <= 489 Then tmpStr = "Соединение жирных кислот"
        If E >= 490 And E <= 499 Then tmpStr = "Другие"

        If E >= 500 And E <= 509 Then tmpStr = "Неорганическая кислота/основание"
        If E >= 510 And E <= 519 Then tmpStr = "Хлорид/Сульфат"
        If E >= 520 And E <= 529 Then tmpStr = "Сульфат/Гидроксид"
        If E >= 530 And E <= 549 Then tmpStr = "Соединение щелочных металлов"
        If E >= 550 And E <= 559 Then tmpStr = "Силикат"
        If E >= 570 And E <= 579 Then tmpStr = "Стеарат/Глюконат"
        If E >= 580 And E <= 599 Then tmpStr = "Другие"

        If E >= 620 And E <= 629 Then tmpStr = "Глютамат"
        If E >= 630 And E <= 639 Then tmpStr = "Инозинат"
        If E >= 640 And E <= 649 Then tmpStr = "Другие"

        If E >= 900 And E <= 909 Then tmpStr = "Воск"
        If E >= 910 And E <= 919 Then tmpStr = "Глазирователь"
        If E >= 920 And E <= 929 Then tmpStr = "Вещество, улучшающее мучное изделие"
        If E >= 930 And E <= 949 Then tmpStr = "Газ для упаковки"
        If E >= 950 And E <= 969 Then tmpStr = "Подсластитель"
        If E >= 990 And E <= 999 Then tmpStr = "Пенообразователь"