Hallo,
wenn du alles in eine Zeile schreiben willst, sieht es so aus:

If Tzler > 30 Then : Lang = 1 : Else : Kurz = 1 : Lang = 0 : End If

Zwischen den Befehlen muss ein Doppelpunkt stehen, End If nicht vergessen!