Refactored vb as parameter