hi picnick, vielen dank fuer die antwort,an sowas habe ichauch gedacht, nur weiss ich leider nicht, dass es sogar schon fertige funktione gibt^^( )

habe naemlich noch gedacht, dass ich dannn sowas selbst machen muss

x as byte, y as byte, dim br(16) as byte

for a=1 to 16 step 2
x=a+1
y=ar(a)*10 'oder *16?
br(a)=y+ar(x)
next a

aber ich denke makebcd macht alles wesentlich leichter^^