Changed VB code for status
Changed button