Nun das dürfte daran liegen das die Eingänge auf eine logische 0 (GND) reagieren sollten weil die Internen Pull ups aktiviert sind
Also If PinXX = 0 Then ....
Mir ist auch aufgefallen das du den CPort nicht Configuriert hast.
Hast du dich eigentlich überhaupt schon mal mit den Bascom AVR Grundlagen beschäftigt? Schau noch mal ins Wiki rein.

Mfg

Neutro