求VB大神，一道编程题，文本框(Text1，文本内容为空)用于输入字符串“AB1

Question

求VB大神，一道编程题，文本框(Text1，文本内容为空)用于输入字符串“AB123C1234DE123F”,文本框(Text2，文本内容为空)，用于显示计算结果，两个命令按钮，标题分别为“删除”和“保存”要求程序运行后，单击“删除”按钮，删除字符串中所有的子字符串“123”，并将结果显示在文本框中，最后单击“保存”按钮

Answer 1

Private Sub Command1_Click()
  Text2.Text = ""
  Dim a() As String
  a = Split(Text1.Text, "123")
  For i = LBound(a) To UBound(a)
    Text2.Text = Text2.Text + a(i)
  Next i
End Sub

Private Sub Command2_Click()
  strS = Text2.Text
End Sub

Private Sub Form_Load()
  Text1.Text = ""
  Text2.Text = ""
End Sub