比如
'''Dim str As String = "贮存于相对湿度不超过80%、通风良好、远离含氯类消毒制品、的室内。"Dim idx = str.LastIndexOf("、")If idx >= 0 Then str = str.SubString(0, idx) & str.SubString(idx+1)End Ifmsgbox(str)