VB：编一个子过程DeleStr(s1,s2)，将字符串s1中出现的s2子字符串删去，结果存放在s1中

题目来源：大工慕课 链接
原题：Visual Basic程序设计教程（第二版）龚沛曾主编，高等教育出版社 实验6-8
作者：Caleb Sung

题目要求

编一个子过程DeleStr(s1,s2)，将字符串s1中出现的s2子字符串删去，结果存放在s1中。
例如：s1= “12345678AAABBDFG12345 ” S2= “234 ”
结果：s1= “15678AAABBDFG15 “

提示：

为了删除子串,首先利用InStr函数查找子串；若找到则通过Left、Mid（或Right）函数实现子字符串的删除；同时要利用循环考虑到删除多个子串的情况。

参考代码

Private Sub DeleStr(s1 As String, ByVal s2 As String)
    Dim i%
    ls2 = Len(s2)
    i = InStr(s1, s2)
    Do While i > 0
        s1 = Left(s1, i - 1) + Mid(s1, i + ls2)
        i = InStr(s1, s2)
    Loop
End Sub

Private Sub Command1_Click()
    Dim ss1 As String
    ss1 = Text1
    Call DeleStr(ss1, Text2)
    Text3 = ss1
End Sub