Hallo,
im Testprogramm wird vor jedem Messen an den Ports der Pullup aktiviert, evtl. bringt das immer den gleichen Wert !?
Schau mal in Sub Showdigitalporta() evtl. kannst das mal ändern und probieren.

Evtl. kannst Du den Jumper UMess rausmachen, und dann den Sharp an ADC6 bzw. PortA6 hängen, denn da wird kein Pullup aktiviert.
Zum anzeigen dann die Batteriespannung anzeigen lassen.