Meine Bascom-Kenntnisse sind schon etwas eingerostet, also nicht wundern wenn etwas falsch ist^^

Ich würde das so machen.

Dim X as String = "0"

Do
Input X
If X <> "0"
Call LED()
End if
loop

Sub LED()
If X = "an" Then Statusled = 1 Elseif X = "aus" Then Statusled = 0 End If
X = "0"
End Sub
mfg