Код 39 в Vba проблемы с толщиной линии

Question

    Sub cod39()
   Dim a As String
   a = Cells(2, 4).Value
   b = Len(a)
    x1 = 10
  'start39'
  start39 = Cells(44, 17).Value
  For q = 1 To 10
  midle = Mid(start39, q, 1)
  y1 = 40
  y2 = 75
  x1 = x1 + thickness
  If midle = "W" Then


    Set myDocument = ActiveSheet   '000czarny 255bialy'
    With myDocument.Shapes.AddLine(x1, y1, x1, y2).Line
     .Weight = 2
      thickness = 2
    .ForeColor.RGB = RGB(255, 255, 255)
  End With

 End If
 Next q

Привет всем здесь является частью моего кода VBA. Я пишу это, чтобы сгенерировать код 39, но есть одна проблема. Когда я добавляю новый Бар в свой штрих-код, иногда появляется новый бар предыдущего, поэтому, когда белый столбец идет после черного, этот черный столбец не такой большой, как должен быть., так что мой вопрос, как отредактировать этот код, чтобы нарисовать бар один за другим? Моя идея состояла в том, чтобы сделать это с параметром толщина (в коде 39 их соотношение 2:1), но моя попытка не удалась, кто-нибудь может помочь?