Hallo,

Da der PortD teilweise auch als Ausgang konfiguriert ist vermute ich hier den Fehler... Versuche mal den Port vor der Abfrage zu maskieren, zb. so:

Code:
Dim MaskedPort as Byte
...
MaskedPort = Portd And &b00001111
If MaskedPort = S Then
...
mfg