Private Sub Reload_Example()
Dim b As Block
Set b = ActiveDocument.Blocks(1)
b.Reload
MsgBox "Blocks(1) has been reloaded."
End Sub