cosa intendi per InputBox???

ad ogni modo devi utilizzare un controllo TIMER

ESEMPIO:

ogni tot secondi aggiungi uno spazio o una nuovo carattere (o) stringa

text1.text = " " & text1.text

oppure

label1.caption = " " & label1.caption

o simile...