Mi sono reso conto che la variabile che identifica InputBox e cioé Dati() deve essere dichiarata come String.
Mi va bene lasciarla come String, ma avrei preferito fare una conversione. Ho provato a fare:
ma mi da errore.codice:Dati(I)= CSng(InputBox(Domanda(I)))