Function FixBarcode( Barc as string ) as string
dim teller as integer
dim tempstr as string
dim targstr as string
for teller = 0 to len(barc) -1
tempstr = mid(barc, len(barc) - teller,1)
if (isnumeric(tempstr) = TRUE) and (tempstr <> ".") then
targstr = tempstr + targstr
else
exit for
end if
next
FixBarcode = targstr
end function
