Hallo gunzelg,
die Zeile 107 ist gleich bei dem ersten Enf if
If Durchlauf = 80 Then Gosub Tempeinlesen 'Alle 20 Sek. Temperaturen aktualisieren
End if

Durchlauf ist als Byte definiert

das Programm funktionierte einwandfrei, bis ich begann alle IF THEN Anweisungen mit einem End if abzuschliessen
die Fehlermeldung kommt bei allen Zeilen die nach einem IF THEN ein End if enthalten