Hi Jörn,
es bringt wahrscheinlich nicht viel Dein Problem in alle möglichen Foren zu schreiben. Entweder ist Deine Unit wirklich kaputt (fast unwahrscheinlich) oder es stimmt irgendetwas anderes nicht.
Probier doch mal dieses Programm aus. Was kommt dabei heraus?

define i as byte

FUNCTION ADDBYTE(a as BYTE,b as BYTE)
RETURN a+b
END FUNCTION


for i= 1 to 5
PRINT "ERGEBNIS:" & ADDBYTE(i,40)
next

Print 5+30 'Funktioniert eigentlich ne Addition