Vba Object Variable With Block Not Setengah