Visual Basic Variable Length Intake