vba if then without end if