% dim HeaderType HeaderType = "Westminster Admissions Random" Select Case HeaderType Case "Assigned" %>