Vba Define Variable And Assign Value To A String