With Gantshape
  - - - - 
  - - - -
  If inBoxString <> "" Then 
    with .TextFrame.Characters
       .Text = inBoxString 
       .Font.Size = PatternType.Parent.Font.Size 
       .Font.FontStyle = PatternType.Parent.Font.Size 
       .Font.Color = PatternType.Parent.Font.Color
    end with 
    .TextFrame.VerticalAlignment = xlTop
    .TextFrame.HorizontalAlignment = iif(duration< choose(ascii(equipment)-64),1.5,.5,5),xlleft,xlright)
  end if
end with