Chefe:
du definierst "temp" als byte,
Dim Temp As Byte , Temp0 As Byte

schreibst aber dann 9 Byte rein
Temp = Bin(temp0)
bin (120) = "01111000"

und "str(temp)" ist ja dann überhaupt ein Brimsen

Bin () ergibt ja schon eine String