Cleaned up the code in Main.vb.