Wie wäre es, wenn du das:
If Pinc.0 = 1 Then
Call Lcd2
Else
Call Lcd1
End If
in eine Do-Loop-Schleife setzt?

Also so:
Do
If Pinc.0 = 1 Then
Call Lcd2
Else
Call Lcd1
End If
Loop

jon