ohne Dir zu nah treten zu wollen ... das macht man nicht.
mal davon abgesehen, dass Du Dezimale berechnen musst
brauchts ne Menge teurer Bauteile und die Leiterbahnführung
wird auch recht kompliziert.
Normalerweise geht man hin
und hängt die Anzeigen einfach parallel auf nen Bus ausser
der jeweiligen gemiensamen Anode oder Kathode.
Die steuert man per Transistor an, das machts einfacher.

aber für den Fall den Du brauchst gehts in etwa so:
Dim A As Byte
Dim B As Byte
Dim Dezstellen(3) As Byte


A = 158
B = A / 100
Dezstellen(1) = B
B = B * 100
A = A - B
B = A / 10
Dezstellen(2) = B
B = B * 10
A = A - B
Dezstellen(3) = A

sollte gehen da nicht gerundet wird sondern nur die
ganzzahlign werte errechnet werden.

PortA.1-4 und die 4 auf PortA.5-8
shift Dezstellen(1),left,1
shift Dezstellen(2),left,5

porta = Dezstellen(1) or Dezstellen(2)