Update Module1.vb

OCD update