Versuche mal diese Zeile
Porta = &B11111111 'Pin 0...7 auf High setzen
in
Porta = &B00000000 'Pin 0...7 auf High setzen
umzuwandeln.

jon