подстроки

[pikass]

Даны две строки: S1 и S2. Удалить из строки S1 (S1 – строка выделения) все подстроки, совпадающие с S2. Если таких подстрок нет, то выделение оставить без изменений.
Для некоторых случаев прога работает, а иногда не видит подстроки. Как исправить, подскажите если знаете.

Private Sub CommandButton1_Click()

s = Selection.Text
s2 = TextBox1.Text
Dim s3 As String
For i = 1 To Len(s) 'размер строки
If Mid(s, i, Len(s2)) <> s2 Then s3 = s3 + Mid(s, i, 1) Else i = i + Len(s2) 'считывание числа символов в строке
Next i

MsgBox s3, vblnformation, "Результат"

End Sub

Private Sub CommandButton2_Click()
UserForm1.Hide


End Sub

[Avsha]

If Mid(s, i, Len(s2)) <> s2 Then s3 = s3 + Mid(s, i, 1) Else i = i + Len(s2) - 1 'считывание числа символов в строке