Visual Basic - sistema con codigo de barras

alguien me podria guiar:

ps no he realizado un sistema con codigo de barras
pero quisiera k me ayuden como obtener el contenido .. k lee una lectora de codigo de barras
Y ps.... este se conecta a un puerto serial

por fa.. una ayuda.. gracias

vas a tener que hacer una tabla pra guardar el codigo de la etiqueta que si bien lleva el nº del producto pero tambien se le agrega algo..
en este caso estoy llamando a unfa funcion "Barra128_B" que transforma el numero para poder imprimir la etiqueta

al imprimir tenes que utilizar la tipografia de barra creo que podes utilizar cualquiera y si no seguro buscate Barra128 la tengo que haber eliminado de mi ordenador.
espero que te sirva

Rs!CodStock = Barra128_B(Producto.Text)

Function Barra128_B(tcString)
lcStart = Chr(104 + 32)
lcStop = Chr(106 + 32)
lnCheckSum = Asc(lcStart) - 32
lcRet = tcString
lnLong = Len(lcRet)
For lnI = 1 To lnLong
lnAsc = Asc(Mid(lcRet, lnI, 1)) - 32
If Not lnAsc >= 0 And lnAsc <= 99 Then
lcRet = Replace(lcRet, lnI, 1, Chr(32))
lnAsc = Asc(Mid(lcRet, lnI, 1)) - 32
End If
lnCheckSum = lnCheckSum + (lnAsc * lnI)
Next
aa = lnCheckSum Mod 103
aa = aa + 32
lcCheck = Chr(aa)
lcRet = lcStart + lcRet + lcCheck + lcStop
'*--- Esto es para cambiar los espacios y caracteres invalidos
lcRet = Replace(lcRet, Chr(32), Chr(232))
lcRet = Replace(lcRet, Chr(127), Chr(192))
lcRet = Replace(lcRet, Chr(128), Chr(193))
'*---
Barra128_B = lcRet

End Function