Code:
Config Adc = Single , Prescaler = Auto
Start Adc
Dim W As Word
  W = Getadc(<ADC an dem spannung rein kommt (1,2,3,4,5,6,7,8...>)
  If W > xxx
  Gosub 2
  End If
  Loop
End
Musst den entsprechenden Kanal für den ADC einstellen und dann den ADC-Wert für 4Volt herausfinden.

jon