具体你的问题
dim str as string = "<?xml version=""1.0"" encoding=""utf-8"" ?><call command=""transfer""><ext id=""801""><dst>802</dst><unique>2209017600</unique><time>2017-03-27</time><checksum>095a93d74bed6f96b219287363c7d750</checksum></ext></call>"msgbox(str)