Don't know much about your TM1637, but the one thing that jumped out for me was:



for cnt = 7 to 0 step -1 'Send 8 bits of data, starting with the LSB.
dio = bytetosend.0(cnt)

I think your...