Declare Sub Lcdwrite(byval zeichen as byte)

...

Sub Lcdwrite(byval zeichen as byte)
...
End Sub