[Resolvido]duvida em montar um codigo

galera preciso de ajuda no seguinte

tenho um campo codigo de barras = mascara 0000000000000 que conten 13 digitos


ai tenho os campos = id, preco venda e preco sugerido


gostaria que o codigo de barras fosse formado do seguinte



id + preco sugerido ate ai e facil


mas quero que fique assim o codigo de barras


id = 250

preco sugerido = 896.50



no codigo de barras ele montasse assim


2500000089650 = 13 digitos

ou assim
id = 129
preco sugerido = 96.50


1290000009650 = 13 digitos


alguem pode me ajudar

Bom dia!
Function FmtCodBarras(Id As Integer, Preco As Double) As String
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' '
' código criado por Alexandre Neves, do Fórum MaximoAccess '
' o código pode ser utilizado livremente, desde que mencionado este cabeçalho e acrescentado o utilizador '
' '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'em 2013-09-04 para crb_sjrp
FmtCodBarras = Format(Preco * 100, "0000000000000")
FmtCodBarras = Id & Mid(FmtCodBarras, Len(Id) + 2)
End Function

valew