VBA/Barcode 128

[mjspiz]

Hello,
I am trying to generate a code128 barcode(s) with VBA, but having some difficulty. The barcode should be generated in column B next to the SID number. Here is the code I have so far. Any idea what I need to do to make this work?
Thank you.

Dim ReadData As String

    Open fName For Input As #1

    Do Until EOF(1)
    
       Line Input #1, ReadData
      
       Trimmed_Line = Trim(ReadData)
    
        counter1 = counter1 + 1
        UnitLine() = Split(ReadData, ",")
        SID = UnitLine(5)
        BCode = UnitLine(0)
              
        Dim myWorksheet As Worksheet, sh As Worksheet

       Set myWorksheet = ActiveSheet
       ActiveSheet.Name = "Lyric"
       Row_Number = Row_Number + 1
    
       Cells(Row_Number, 1).Value = SID
       Cells(Row_Number, 2).Value = code128(SID) ???
                
          
    Loop
    
    Close #1

 

[Zot]

What is the difficulty? To be able to display the barcode, you need to install the code128 barcode and to format the cell you want to display code.

 

[mjspiz]

What is the difficulty? To be able to display the barcode, you need to install the code128 barcode and to format the cell you want to display code.

Yah, I figured it out. Installed the code128 font. From there, the coding was easy.

 

[Zot]

Thanks for the update.