codice:
dim d as date
If (IsDate(Text1)) Then
d = CDate(Text1) + Date
Else
MsgBox "Mi perdoni l'ardire, mio caro utente, ma Lei dovrebbe gentilmente digitare una data valida!"
End If
ora in d hai la data corretta.
Il tuo errore consisteva nel sommare un testo ad una data. Con Cdate converti il testo in data, isdate ti dice invece se il testo corrisponde ad una data valida.
La somma tra due tipi date si può fare tranquillamente con il +, se dovessi invece sommare un'intero ad una data devi usare l' apposita funzione dateadd.