Ciao Veronica. "Tipo non corrispondente" è la traduzioni in italiano di "Type Mismatch", infatti non puoi fare la somma di una data e una stringa, come spiegavo prima.
Usa una di queste due:
codice:
d = CDate(txtora.Text) + Date
a = Format(d, "dd/mm/yy hh:mm:ss")
'a è di tipo string ed è formattata d è di tipo date
oppure
codice:
a = format(date, "dd/mm/yy ") & txtora.text
'a è di tipo string (la & è simile al + e fa la concatenazione)
Soprattutto cerca di capire perchè queste due sono giuste (la spiegazione di prima).
Buon lavoro.