Page Counter in Word

How could I program a VBA macro to count the number of pages in a word document?

Thanks in advance.

Code:

---

Sub page_count()
    MsgBox (ActiveDocument.Range.Information(wdNumberOfPagesInDocument))
End Sub

---