主题：[求助]修改特定开头和结尾的值

dim str as string = "<div style='width:100%' ><a>一网</a></div><div style='width:100%' ><a>二网</a></div><div style='width:100%' ><a>三网</a></div>"

比如以上代码，使用狐表，怎么才能修改全部开头为<a>结尾为</a>的值？