Update Class1.vb

Bug fix