schreib es mal so
Code:
Start Adc  
V = Getadc (4) 
If V > B Then 
B = V 
EndIf