A useful adjunct to any procedure which has assumed that a document exists.

<pre>Public Function EnsureDocument()
If Documents.Count < 1 Then
Documents.Add
Else
End If
End Function
</pre>