Hi here is my code..


vb.net Code:
  1. Private Sub GetResult()

  2.         Select Case Result Mod 43

  3.             Case 1

  4.                 BaracodeData += "1"

  5.                 CheckCharacter = "1"

  6.             Case 2

  7.                 BaracodeData += "2"

  8.                 CheckCharacter = "2"

  9.             Case 3

  10.                 BaracodeData += "3"

  11.                 CheckCharacter = "3"

  12.             Case 4

  13.                 BaracodeData += "4"

  14.                 CheckCharacter = "4"

  15.             Case 5

  16.                 BaracodeData += "5"

  17.                 CheckCharacter = "5"

  18.             Case 6

  19.                 BaracodeData += "6"

  20.                 CheckCharacter = "6"

  21.             Case 7

  22.                 BaracodeData += "7"

  23.                 CheckCharacter = "7"

  24.             Case 8

  25.                 BaracodeData += "8"

  26.                 CheckCharacter = "8"

  27.             Case 9

  28.                 BaracodeData += "9"

  29.                 CheckCharacter = "9"

  30.             Case 10

  31.                 BaracodeData += "A"

  32.                 CheckCharacter = "A"

  33.             Case 11

  34.                 BaracodeData += "B"

  35.                 CheckCharacter = "B"

  36.             Case 12

  37.                 BaracodeData += "C"

  38.                 CheckCharacter = "C"

  39.             Case 13

  40.                 BaracodeData += "D"

  41.                 CheckCharacter = "D"

  42.             Case 14

  43.                 BaracodeData += "E"

  44.                 CheckCharacter = "E"

  45.             Case 15

  46.                 BaracodeData += "F"

  47.                 CheckCharacter = "F"

  48.             Case 16

  49.                 BaracodeData += "G"

  50.                 CheckCharacter = "G"

  51.             Case 17

  52.                 BaracodeData += "H"

  53.                 CheckCharacter = "H"

  54.             Case 18

  55.                 BaracodeData += "I"

  56.                 CheckCharacter = "I"

  57.             Case 19

  58.                 BaracodeData += "J"

  59.                 CheckCharacter = "J"

  60.             Case 20

  61.                 BaracodeData += "K"

  62.                 CheckCharacter = "K"

  63.             Case 21

  64.                 BaracodeData += "L"

  65.                 CheckCharacter = "L"

  66.             Case 22

  67.                 BaracodeData += "M"

  68.                 CheckCharacter = "M"

  69.             Case 23

  70.                 BaracodeData += "N"

  71.                 CheckCharacter = "N"

  72.             Case 24

  73.                 BaracodeData += "O"

  74.                 CheckCharacter = "O"

  75.             Case 25

  76.                 BaracodeData += "P"

  77.                 CheckCharacter = "P"

  78.             Case 26

  79.                 BaracodeData += "Q"

  80.                 CheckCharacter = "Q"

  81.             Case 27

  82.                 BaracodeData += "R"

  83.                 CheckCharacter = "R"

  84.             Case 28

  85.                 BaracodeData += "S"

  86.                 CheckCharacter = "S"

  87.             Case 29

  88.                 BaracodeData += "T"

  89.                 CheckCharacter = "T"

  90.             Case 30

  91.                 BaracodeData += "U"

  92.                 CheckCharacter = "U"

  93.             Case 31

  94.                 BaracodeData += "V"

  95.                 CheckCharacter = "V"

  96.             Case 32

  97.                 BaracodeData += "W"

  98.                 CheckCharacter = "W"

  99.             Case 33

  100.                 BaracodeData += "X"

  101.                 CheckCharacter = "X"

  102.             Case 34

  103.                 BaracodeData += "Y"

  104.                 CheckCharacter = "Y"

  105.             Case 35

  106.                 BaracodeData += "Z"

  107.                 CheckCharacter = "Z"

  108.             Case 36

  109.                 BaracodeData += "-"

  110.                 CheckCharacter = "-"

  111.             Case 37

  112.                 BaracodeData += "."

  113.                 CheckCharacter = "."

  114.             Case 38

  115.                 BaracodeData += "Sp"

  116.                 CheckCharacter = "Sp"

  117.             Case 39

  118.                 BaracodeData += "$"

  119.                 CheckCharacter = "$"

  120.             Case 40

  121.                 BaracodeData += "/"

  122.                 CheckCharacter = "/"

  123.             Case 41

  124.                 BaracodeData += "+"

  125.                 CheckCharacter = "+"

  126.             Case 42

  127.                 BaracodeData += "%"

  128.                 CheckCharacter = "%"

  129.  
  130.  
  131.         End Select


If the result is 86 and it's mod by 43 the answer is 2

Case 2 is not firing. it just goes to the end of the procedure.