dovresti fare una funzione come questa, che nel mio esempio prende una data nel formato aaaa-mm-gg e lo trasforma in mm/gg/aaaa

codice:
Function dataInglese(myDate)
		
	Dim arrData
	arrData = Split(myDate, "-")
		
dataInglese = CDate(arrData(1) & "/" & arrData(2) & "/" & arrData(0))

End Function

con piccoli ritocchi puoi renderla adatta alle tue esigenze

ciao