Erro ao usar o For

Setor = "abcde"

for I=1 to Len(setor)
       bar = Mid(setor, I, 1)
       PDF.TeXT contador, "10", bar


       If bar = "A" or bar = "a" Then
               pdf.Image "../../Imagens/BARCODE/A.jpg", contador, 77, 20, 15, "jpg"


           elseif bar = "B" or bar = "b" then
               pdf.Image "../../Imagens/BARCODE/B.jpg", contador, 77, 20, 15, "jpg"


           elseif bar = "C" or bar = "c" then
               pdf.Image "../../Imagens/BARCODE/C.jpg", contador, 77, 20, 15, "jpg"


           elseif bar = "D" or bar = "d" then
               pdf.Image "../../Imagens/BARCODE/D.jpg", contador, 77, 20, 15, "jpg"


           elseif bar = "E" or bar = "e" then
               pdf.Image "../../Imagens/BARCODE/E.jpg", contador, 77, 20, 15, "jpg"


           elseif bar = "F" or bar = "f" then
               pdf.Image "../../Imagens/BARCODE/F.jpg", contador, 77, 20, 15, "jpg"


           elseif bar = "G" or bar = "g" then
               pdf.Image "../../Imagens/BARCODE/G.jpg", contador, 77, 20, 15, "jpg"


           elseif bar = "H" or bar = "h" then
               pdf.Image "../../Imagens/BARCODE/H.jpg", contador, 77, 20, 15, "jpg"


           elseif bar = "I" or bar = "i" then
               pdf.Image "../../Imagens/BARCODE/I.jpg", contador, 77, 20, 15, "jpg"


           elseif bar = "J" or bar = "j" then
               pdf.Image "../../Imagens/BARCODE/J.jpg", contador, 77, 20, 15, "jpg"


           elseif bar = "K" or bar = "k" then
               pdf.Image "../../Imagens/BARCODE/K.jpg", contador, 77, 20, 15, "jpg"

           elseif bar = "L" or bar = "l" then
               pdf.Image "../../Imagens/BARCODE/L.jpg", contador, 77, 20, 15, "jpg"

           elseif bar = "M" or bar = "m" then
               pdf.Image "../../Imagens/BARCODE/M.jpg", contador, 77, 20, 15, "jpg"

           elseif bar = "N" or bar = "n" then
               pdf.Image "../../Imagens/BARCODE/N.jpg", contador, 77, 20, 15, "jpg"

           elseif bar = "O" or bar = "o" then
               pdf.Image "../../Imagens/BARCODE/O.jpg", contador, 77, 20, 15, "jpg"


           elseif bar = "P" or bar = "p" then
               pdf.Image "../../Imagens/BARCODE/P.jpg", contador, 77, 20, 15, "jpg"


           elseif bar = "Q" or bar = "q" then
               pdf.Image "../../Imagens/BARCODE/Q.jpg", contador, 77, 20, 15, "jpg"

           elseif bar = "R" or bar = "r" then
               pdf.Image "../../Imagens/BARCODE/R.jpg", contador, 77, 20, 15, "jpg"

           elseif bar = "S" or bar = "s" then
               pdf.Image "../../Imagens/BARCODE/S.jpg", contador, 77, 20, 15, "jpg"

           elseif bar = "T" or bar = "t" then
               pdf.Image "../../Imagens/BARCODE/T.jpg", contador, 77, 20, 15, "jpg"

           elseif bar = "U" or bar = "u" then
               pdf.Image "../../Imagens/BARCODE/U.jpg", contador, 77, 20, 15, "jpg"

           elseif bar = "V" or bar = "v" then
               pdf.Image "../../Imagens/BARCODE/V.jpg", contador, 77, 20, 15, "jpg"

           elseif bar = "W" or bar = "w" then
               pdf.Image "../../Imagens/BARCODE/W.jpg", contador, 77, 20, 15, "jpg"

           elseif bar = "X" or bar = "x" then
               pdf.Image "../../Imagens/BARCODE/X.jpg", contador, 77, 20, 15, "jpg"

           elseif bar = "Y" or bar = "y" then
               pdf.Image "../../Imagens/BARCODE/Y.jpg", contador, 77, 20, 15, "jpg"

           elseif bar = "Z" or bar = "z" then
               pdf.Image "../../Imagens/BARCODE/Z.jpg", contador, 77, 20, 15, "jpg"

end if

Ele deveria gerar "a b c d e" e as imagens de suas letras, porém eles esta gerando esta ordem:

"a c c d c d e c d e"

Alguem sabe pq?

Percebi que isso só acontece quando uso imagens

Só para entenderem o contador ali é a posição da imagem