高手！请教一个VB问题：

来源：百度知道 编辑：UC知道 时间：2024/05/05 14:42:39
有个变量里有很多个数，想去除其中的一些数
如：在文本框赋值给z中写入要去除的数158,只去除含1,5,8 的数
用for i=1to3
k = Mid(z, i, 1)
把变量用Mid提取为个位，十位，百位等
在用 if 变量的个位，十位，百位等 <> k 语句去除含有1，5，8的项
可在文本框中输入一位数行，而输入二位数时却只能除后一位数。
请问：怎样在文本杠中一次输入1，5，8等多位数，就能一次去除含1，5，8 的所有项。请给出代码，高谢谢！

Private Sub Command1_Click()
a = "1234567890"
b = "158"
For i = 1 To Len(b)
a = Replace(a, Mid(b, i, 1), "")
Next i
MsgBox a
End Sub

原来的字符串内容为 1234567890
运行后字符串内容为 2346790

hi me

for i=1to3