Probiers mal damit.
NUR FÜR SPANNUNGEN BIS 5V!!!!








Code:
 
dim Dauer as integer , Spannung as single

Config Adc = Single , Prescaler = Auto , Reference = Avcc


 Start Adc


  Dauer = Getadc(0)                         ' Messung an Kanal 0
  Spannung = Dauer * 0.004883        ' Umrechnung 5V/1024* Dauer
  

  Stop Adc


   Print "Kanal " ; Cnt ; Spannung ; " V"