Visual Basic para Aplicaciones - Word: Número de Página

Como hago por medio de un Macro para averiguar la "Cantidad de Páginas de un documento". Como hago para poner ese numero en una variable:
Dim A As Double
A = ??????
Gracias
Carlos

La siguiente macro hace lo que quieres:

Option Explicit

Public Sub NumeroPaginas()
Dim doc As Document
Dim pag As Integer

Set doc = ActiveDocument

pag = doc.ComputeStatistics(wdStatisticPages)

MsgBox "El documento tiene " & Val(pag) & " pagina(s)"

Set doc = Nothing

End Sub

Mauricio