FUNCTION GetByteByPos(BYVAL nQuell AS LONG, BYVAL nStart AS BYTE, OPTIONAL _
  BYVAL nLenght AS BYTE) AS LONG
     DIM i AS BYTE, n AS BYTE
     DIM nErgB AS LONG
 
     IF nLenght > 31 THEN nLenght = 31
     IF nLenght < 0 THEN nLenght = 1
     IF nStart > 31 THEN nStart = 31
     IF nStart < 0 THEN nStart = 0
 
     FOR i=nStart TO nLenght
         IF (nQuell AND 2^i) THEN
             nErgB = nErgB + 2^n
         END IF
         n = n + 1
     NEXT
 
     GetByteByPos = nErgB
END FUNCTION