Kurze Frage Atmel90S8515 Serin,Serout

Hallo!
Wollte kurz mal fragen,was an diesem Code nicht stimmt.
Beim eingeben von ? soller Hallo senden.
Tut er aber nicht.
Code:
$baud = 9600
$crystal = 3532900
$regfile = "8515def.dat"
Dim S As String * 1
Dim A As String * 5
A = "hallo"
Do
Serin S , 1 , B , 6 , 9600 , 1 , 8 , 2
Wait 1
If S = "?" Then Serout A , 5 , B , 7 , 9600 , 1 , 8 , 2
Loop
End

Danke im Vorraus!