Update Form1.vb

Ifを２つ使うのではなく、ElseIfを使う処理に変更しました。
元のソースも残しておきますが、効率なども悪いのでおすすめできません。