Funziona grazie!
Per completezza, dopo averci sbattuto la testa tutto il giorno quasi, avevo trovato questo modo che mi ha funzionato:

codice:
Data = CDate("#" & StringaData & "#")
Solo che in questo caso bisogna mettere la stringa tra cancelletti.