Das heist das ich den Code folgendermaßen umschreiben müsste?

Code:
   If Pinc.2 = 1 Then                                       'SHARP

     Portd.2 = 1
      Waitms3000
     
     Else
    Portd.2=0
   End If