i think there is something wrong with the first code

visual basic didnt eccept it