Create Main.vb

The main source code