Ich hatte dir ja die Lösung mit der benutzerdefinierten Funktion GibMirEinDatum vorgeschlagen. Wie du innerhalb dieser Funktion das Datum ermittelst ist Dir überlassen. Natürlich kannst du dich dabei auch auf ein Control in einem Formular beziehen. Z.B. so:

Public Function GibMirEinDatum() As Date

     GibMirEinDatum = CDate(Forms![deinFormular]!txtEingabeDatum)

End Function