A Simple Do Loop While Program In Vb