Also bei mir funktioniert das:
Code:
Dim X As Byte

Do

Input X
Print X

Loop

End
Oder hast du etwas anderes gemeint?