Modified VBBusinessTier