vb去掉s1中的出现在s2中的字符代码

去掉s1中的出现在s2中的字符，帮忙看看 具体VB程序代码

For i = 0 To Len(s2) - 1
  s1 = Replace(s1, Mid(s2, i, 1), "")
Next

Private Sub DeleteStr(ByVal S1 As String, ByVal S2 As String)
  Dim n As Integer
  n = InStr(S1, S2)
  For n = 0 To Len图书管理系统论文 (S2) - 1
  S1 = Replace(S1, Mid(S2, n, 1), "")
  Next
  End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim s1, s2 As String
  DeleteStr(s1, s2)
  TextBox3.Text = CStr(s1)
  End Sub
这是我的代码 求大神帮忙看看

Dim s1, s2 As String
后面你得写
s1 = TextBox1.Text
s2 = TextBox2.Text