iLogic to VBA Creation Date .idw

[Anonymous]

Hello,

How can i convert this iLogic code to VBA? i want to change .idw files Creation Date NOW with VBA code.

File-iproperties-creation date- NOW

Could you please help me? or which VBA code should i use?

Thanks

oTime = Now.ToShortDateString
iProperties.Value("Project", "Creation Date") = oTime
iLogicVb.UpdateWhenDone = True
End Sub

[bradeneuropeArthur]

Public Sub main()

'Dim oTime As String
'oTime = Now
'
''oTime.

Dim LValue As String

LValue = Format(Now, "dd/MMM/yy")

MsgBox LValue
MsgBox ThisDocument.PropertySets.Item(3).Item("Creation Time").Value
ThisDocument.PropertySets.Item(3).Item("Creation Time").Value = LValue

End Sub

[Anonymous]

Thanks for reply. It appears only a message  when i run the VBA code. It can not change the .idw files' creaton date. Long way to change the creaton date is : FILE-IPROPERTIES-PROJECT-CREATON DATE-NOW I want it to change with VBA code.

[bradeneuropeArthur]

Don't understand your last message!

[Anonymous]

I want to change the creation date with VBA code at below picture.