Hi,
dann versuch doch einfach mal per:

Dim Rs232_flash As Byte
Dim Rs232_str As Byte

Rs232_flash = Ischarwaiting()
If Rs232_flash = 1 Then 'wurde was über RS232 empfangen?
Rs232_str = Inkey() 'Empfangspuffer auslesen
If Rs232_str = 123 Then

'mache irgend was...

end if
end if

zu schauen, ob am Controller die 123 überhaupt ankommt! wenn ja, dann geht Dein Bootloader nicht. Wenn ja, ist etwas mit Bascom faul!