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

'直接用replace不是很好吗？楼上有些错误，纠正一下
Private Sub DeleStr(ByRef s1, s2)
    While (InStr(s1, s2) > 0)
        s1 = Replace(s1, s2, vbstrNull)
    Wend
End Sub

Private Sub DeleStr(s1, s2)
s1 = Replace(s1, s2, vbstrNull)
End Sub