Das geht am besten indem du den Wert aus dem Port ausliest und ihn mit AND ausblendest. Dann das zu schreibende Byte mit OR wieder hinzugügen und fertig:

' Wert der geschrieben werden soll ins obere Nibble
Wert = 123
' Wert oberen Nibble ausmaskieren
Wert = Wert And &B11110000
' Aktuellen Zustand des Ports im unteren Nibble ausblenden
TempWert = PortD And &B00001111
' Beide Werte wieder kombinieren und auf Port schreiben
PortD = TempWert Or Wert

Anstatt der &B00001111 kann man auch einfach &H0F schreiben

Prinzip des AND:

xxxxxxxx
00001111
-----------
0000xxxx

Prinzip des OR:

xxxxxxxx
01100000
-----------
x11xxxxx

Grüße Wolfgang