trasformare campo data in campo stringa

[Subroutine72]

Ciao,
devo confrontare un campo di testo che contiene una data ma considerata come stringa con la data odierna, quindi quello che vorrei fare è trasformare data1 che rapresenta la data odierna
<%
Dim data1

data1 = DateSerial(Year(Now),Month(Now),Day(Now))%>

in un campo di testo, come posso fare?

Grazie, Sabry.