Private Sub Unload_Example()
Dim b As Block
Set b = ActiveDocument.Blocks(1)
b.Unload
MsgBox "Blocks(1) has been unloaded."
End Sub