Código de Barras en DataReport

[TheGhost(Z)]

Hola tengo un DataReport con datos y en una parte quiero que se muestre un codigo de barras. Para ello estoy Usando el Tipo de Fuente Interleaved 2 de 5.

Pero al cargar en el formulario me sale un error:

Código [Seleccionar] Expandir

Error al ajustar líneas de texto en el control Etiqueta37

Estoy Usando el Código:

Código [Seleccionar] Expandir

Dim lcstart As String
Dim lcstop As String
Dim barralargo As String
Dim lccar As String
Dim lni As Long

lcstart = Chr(40)
lcstop = Chr(41)
barralargo = 1234567890

For lni = 1 To Len(barralargo) Step 2
    If Val(Mid(barralargo, lni, 2)) < 50 Then
      lccar = lccar + Chr(Val(Mid(barralargo, lni, 2)) + 48)
    Else
      lccar = lccar + Chr(Val(Mid(barralargo, lni, 2)) + 142)
    End If
Next
barralargo = lcstart + lccar + lcstop

.Sections("Sección1").Controls("Etiqueta37").Caption = "*" & barralargo & "*"


En un formulario lo Uso:

Código [Seleccionar] Expandir

Label1.FontName = "i2of5txt"
Label1.FontSize = 72
Label1.AutoSize = True

Label1.Caption = "*" & barralargo & "*"

Y funciona correctamente, pero no se que pasa con el data report.. ayuda porfavor..