Man könnte eine Funtion schreiben, die die Pins dann für dich setzt:

Ausgabe(01010100)

Funktion Ausgabe(byval Pinout as byte)
Portx.y = Pinout.1
...

Sollte gehen, oder?
Ich meine aber auch irgendwo mal gelesen zu haben, dass es anders geht. Ich fürchte aber, das war in C.

MFG Moritz