将字符串拆分为公式不起作用？

Question

我是水晶报道的新人。我想从字段数据中拆分字符串，例如。数据是＆＃34; aa：dasdas ^ bb：dasdas ^ cc：dasdasd ^ dd：dsadasd ^＆＃34;

这是我在水晶报告中使用基本语法的代码。

Dim xvs1() as string
Dim xresult as string

if isnull({Field_Data}) = false then
   xvs1 = Split({Medical.mr_vs} , "^")
   xresult = xvs1(1)
   formula = xresult
end if

水晶报告中的输出：＆＃34; aa：dasdas ^ bb：dasdas ^ cc：dasdasd ^ dd：dsadasd ^＆＃34; ，流程没有拆分，在我的解决方案中找不到错误，请帮助非常感谢。