Hola MestreZero.
Para transformar los nºs en código de barras puedes utilizar una fuente truetype instalándola en la carpeta Fonts del windows. La fuente que te digo se llama "barcod39".
Luego la llamas en visual de la siguiente forma, x ej:
-------------------------------
Dim X As New StdFont
X.Size = 40
X.Name = "barcod39"
Set Printer.Font = X
Printer.Print "*" & Label1.Caption & "*"
--------------------------------
La fuente te la dejo adjunta.
Saludos y suerte.
