Need Help to change "Render Resolution" of Document via macro

Hi Everyone.

Can you help me the macro code to check and change "Render Resolution" of Document to 300 dpi if current it is 72dpi. 

I was try:

If ActiveDocument.Resolution =72 Then

ActiveDocument.Resolution(300)

End If

but it not working.

Please help. Thank you.