Hserin -Timeout- wait üçlüsünün aynı anda uygulanması?

[forumsad]

Hserin denemelerime devam ediyorum
seri Porta B110011S  şeklinde bir bilği gönderiyorum

BU bilğiyi HSerIn [Str SerString\8]  komutuyla alıp lcd 'ye yazdırıyorum bir sorun yok sorum şu değişik örneklerde gördüğüm
timeout ve wait uygulamalarını birleştirebilirmiyiz
tahmini olması gereken komut aşagıdaki gibi ama hata veriyor tabi

Dim SerString[8] As Byte
Loop:
HSerIn ,1000,Timeout,[Wait ("B"), Str SerString\8]

 Timeout: 
 'CLS
 'PRINT "TIMED OUT"         ' Display an error if HSERIN timed out
 'STOP

GoTo Loop                  ' Loop forever

yapamaya çalıştığım şu 1 sn boyunba B ile başlayan bir bilği bekle gelmez ise timeout ol ve başa dön
şeklinde bir olay

nasıl yapabiliriz saygılarımla..