Даны две строки произвольного текста - VB

Формулировка задачи:

Даны две строки произвольного текста. Известно, что среди символов в каждой строке имеются хотя бы две буквы «m». Составить процедуру, преобразующую текст путем замены запятыми всех двоеточий и точками всех восклицательных знаков, расположенных между двумя буквами «m». В программе обрабатываются две строки. выдаёт ошибку

Sub CW(ByVal S0, S1 As String)
Dim SI As Integer
Dim Flag As Boolean
Dim Flag1 As Boolean
Dim I As Integer
Dim S2 As String
S = ""
S = S0
Flag1 = True
Do
Flag = True
For I = 1 To Len(S2)
If Mid(S2, 1, 4) = "," Then
S1 = Mid(S2, 1, I - 1) + ":" + Mid(S2, I + 4, Len(S2))
Flag = False
Flag1 = False
End If
Next I
S2 = S1
Loop Until Flag = True
If (Flag1 = True) Then S1 = S0
End Sub
 
Private Sub Command2_Click()
Dim A As String
Dim A1 As String
A = Text4.Text
Call CW(A, Al)
Text4.Text = А1
End Sub

Решение задачи: «Даны две строки произвольного текста»

textual
                            Листинг программы 
                        
                            Sub CW(ByVal S0 AS STRING, S1 As String)