momentary switch with Visual Basic