Ich weiss nicht, wie du das verdrahtet hast. Ich würde erstmal nur eine Ziffer aktivieren und alle Zahlen einzeln durchlaufen lassen. Dann die Nächste usw.

Meine Ziffern sehen so aus:

Dim Zahl(10) As Byte
Zahl(10) = &B01000000
Zahl(1) = &B01111001
Zahl(2) = &B00100100
Zahl(3) = &B00110000
Zahl(4) = &B00011001
Zahl(5) = &B00010010
Zahl(6) = &B00000010
Zahl(7) = &B01111000
Zahl(8) = &B00000000
Zahl(9) = &B00010000

Die 10 ist natürlich die Ziffer 0.

Dann halt

Portb = Zahl(1)

usw