Hallo minium, Hallo Jon,
Result = Getadc(4) ; Result
das Semikolon und der Text dahinter gehören nicht dahin. Kommentare werden immer mit ' eingeleitet.
If
Result > 1000 Then
gehört in eine Zeile:
If Result > 1000 Then

Weiterhin ist zu erwarten, daß ein Wert von > 1000 nie erreicht wird.
Die Sharp-Sensoren haben ca. eine maximale Ausgangsspannung von 2,6V. Das entspricht etwa einem AD-Wert von 530.
Ich würde für die IF Abfrage einen Wert von ca 350 vorschlagen, das entspricht bei einem Sensor GP2D12 etwa 15cm.
Gruß, Michael