如何用vba的方式实现图中字符串的修改

我在单元格获取到一段字符串
想以字母下划线字母（如：zhq_a）为依据将这段字符串分割
效果如下

将文字读取成整个字符串
按照水果分割 循环 “水果”+data