Hallo StevieL!

Das hat wunderbar geklappt, danke. Was bei mir jedoch nicht funktionierte ist, dass wenn ich Twcr = &B11000100 im Case habe (so wie bei deinem Code). Als ich den Twcr=&B11000100 heraus nahm und nach dem end select gesetzt habe funktioniert alles bestens.

Nochmals danke viel mals für deinen wertvollen Tipp.

Gruss
Shurikn