Devi trattarla come una stringa.
tipo:

dim sData as string, Data as Date

xx="12/31/2002 9:15:06"

sData = Left(xx,Instr(1,xx," "))

Data=cDate(sData)

Data=Format(Data,"DD/MM/YYYY")

sData=Mid(xx,Instr(1,xx," ")+1, Len(xx)-Instr(1,xx," "))

sData = Data & " ore " & sData

'sData contiene 31/12/2002 ore 9:15:06 AM