Ja danke jetzt gehts natürlich, ist ja alles fast so leicht wie gedacht... Bild  
Danke für die Antwort

ich werde den Code mal korrigieren damit ihn jemand verwenden kann falls er auch "neu" ist...

Code:
'Spannungsmessung an Port A5 (PA5)
Dim U As Word
Config Adc = Single , Prescaler = Auto

   Start Adc
   U = Getadc(5)
   Print U
   Stop Adc