Hallo Furtion,

das sollte in etwa so werden:
Dim V as Byte
Input V
if v = 'H' then machwas

evtl. ein loop drumrum.