Correct Cases extraction for VB