Quale errore ti dà ?

Dati(I)= CSng(InputBox(Domanda(I)))

P.S. Usi VBA per Excel?