Public Function Add( _
   ByVal BlockName As String, _
   ByVal XOrigin As Double, _
   ByVal YOrigin As Double, _
   Optional ByVal BlockViewName As Variant, _
   Optional ByVal Scale As Variant, _
   Optional ByVal Rotation As Variant _
) As BlockOccurrence