Hmm .. deshalb vielleicht ?

--> Dim X As Byte <----

Zitat
"Byte (1 byte). Bytes are stores as unsigned 8-bit binary numbers ranging in value from 0 to 255"
Zitat ende

Gruß.
Rainer