Alarming Alias Pinb.0
Dim Alarming As Byte
und
Alarming = Alarming + 1

Macht irgendwie wenig Sinn
kannst ja gleich PortB.0 = 2 schreiben