... und zur Abfrage des aktuellen Portpinzustandes muß es
If PINB.1 = 0 Then
heißen

Gruß
Searcher