Hmm..
Im Simulator geht es. (Version 1.11.8.7)

(wenn man zusätzlich das END am Ende hinschreibt und die Quarzfrequenz angibt)

Code:
$sim
$crystal = 16000000

Dim test As String * 48
Dim S_char(48) As Byte At test Overlay

Test = "Das ist ein Teststring"

S_char(1) = Asc( "T")
S_char(2) = Asc( "E")
S_char(3) = Asc( "S")
S_char(4) = Asc( "T")

Cls 
lcd test

End
Gruß
Christopher