有 两个 文本框 txt1  txt2
txt1“1,2,3,4,5,6,7,8 ”
txt2“1,2,3”

怎么实现 txt2 中 和txt1 中相同的字符 都删掉 就是把“1,2,3” 从两个 文本框中都除去
谢谢了

Dim a() As String
Dim b() As String
Dim i As Integer
Dim j As Integer
Dim stra As String
Dim strb As String
a = Split(Me.Text1, ",")
b = Split(Me.Text2, ",")
For i = 0 To UBound(a)
    For j = 0 To UBound(b)
        If a(i) = b(j) Then
          a(i) = ""
          b(j) = ""
          Exit For
       End If
    Next
 If a(i) <> "" Then
    stra = stra & a(i) & ","
 End If
 
Next
Text1.Text = Left(stra, Len(stra) - 1)
For j = 0 To UBound(b)
  If b(j) <> "" Then
    strb = strb & b(j) & ","
End If
Next
Text2.Text = Left(strb, Len(strb) - 1)