Update Form1.vb

optimised `If` statement
Merge pull request #1 from Walkman100/patch-1

optimised If statement