Oppure, supponendo che giorno, mese e anno sono memorizzate rispettivamente in Text1, Text2 e Text3:
codice:
Dim dd As Date

dd = DateSerial(Text3.Text, Text2.Text, Text1.Text)