VB Замена любого знака препинания на знак двоеточие при введении любого текста

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

Здравствуйте! Можете пожалуйста помочь) Дано три текстовых поля. В одно я ввожу текст, в другое должно выводиться измененный текст, то есть все знаки препинания изменить на двоеточие. А в третее текстовое поле подсчитываются замены. Запуск команд через кнопку. Пожалуйста можно попроще код...чтобы препод понял)спасибо!!!

Ребят я сделал кое что) осталось подсчет..его не могу...посмотрите код плизз:

Dim stroka As String
Dim retval
Private Sub Command1_Click()
stroka = Text2
stroka2 = Text3
 Text3.Text = Replace(stroka, ":", ";")
 
Text1.Text = UBound(Text3.Text)
End Sub

Решение задачи: «VB Замена любого знака препинания на знак двоеточие при введении любого текста»

textual
                            Листинг программы 
                        

                            Private Function foo(ByVal str As String, ByRef count As Integer, Optional ByRef findStr As String = ".,;!?", Optional ByRef replaseStr As String = ":") As String
    count = 0
    For i = 1 To Len(str) Step 1
        If InStr(1, findStr, Mid(str, i, 1)) > 0 Then
            count = count + 1
            Mid(str, i, 1) = replaseStr
        End If
    Next i
    foo = str
End Function
 
 
Private Sub Command1_Click()
    Dim count As Integer
    Text2.Text = foo(Text1.Text, count)
    Text3.Text = CInt(count)
End Sub
                        