Konvertera datum till sträng

Hej!

Jag har följande kod som gör om ett datum till sträng:

Function ConvertDateToString(dDate)
	ConvertDateToString = year(dDate) & right("0" & month(dDate), 2) &_
	right("0" & day(dDate), 2) & right("0" & hour(now()), 2) &_
	right("0" & minute(now()), 2) & right("0" & second(now()), 2)
End function

Kan man modifiera den så att den tar med tiondelar och tusendelar också. Det räcker inte med sekunders upplösning...

Mvh
Henrik