Update Form1.vb

optimised `If` statement