Version DLL auslesen habe ich...aber Datum?

Sub Welche()
Set fs = CreateObject("Scripting.FileSystemObject")
ofile = "C:\Programme\Microsoft Office\Office12\refedit.dll"
Version = "REFEDIT.DLL Version = " & fs.GetFileVersion(ofile)
MsgBox Version
End Sub

Hat einer von euch ne Idee wie ich auch das Datum der DLL dazubekomme?
Danke
Peter S