Config Adc = Single , Prescaler = Auto , Reference = Off
Start Adc

Dim A as Word
A = Getadc(1)

So funzt es bei mir.. Am Referenzeingang liegen 5V

Gruß
Christopher