Da fehlt ein "ENd if"
Code:
Else
   Bereit = 1                                               'wenn kein Signal kommt, dann Bereitschaft wieder herstellen
   If Merker1 = 1 And Pinc.5 = 0 Then                       'wenn Merker gesetzt wurde und Mediastation sich ausgeschaltet hat, Relais auschalten
   Merker1 = 0
   Portb.6 = 1
   Bit1 = 0
   Bit2 = 0
   Bit3 = 0
   Bit4 = 1
   Gosub Ausgeben_aus
   Waitms 500
   Portb.6 = 0
<------------------------- end if????------------------------------------->
End If