主题：更改数值

可以用什么方法把苹果的第11位数 葡萄的第12位数,西瓜的第13位数,在不等于1的时候把数字改为1,如果等于1就不用修改.

此主题相关图片如下：1.png

Dim str = "A20180806A3E1"
str = left(str, 10) & 1 & right(str, str.length-11)
msgbox(str)