Public Function InsertBlock( _
   ByVal InsertionPoint As Point, _
   ByVal BlockName As String, _
   Optional ByVal XScale As Double = 1, _
   Optional ByVal YScale As Double = 1, _
   Optional ByVal ZScale As Double = 1, _
   Optional ByVal Rotation As Double = 0 _
) As BlockInsert