В строке заменить все двоеточия точкой с запятой, подсчитать количество замен - VB

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

Помогите решить задачу, не получается))))))) Задание вот такое. В строке заменить все двоеточия точкой с запятой.Подсчитать количество замен. Вот код программы но его нужно исправить по этому заданию.
Private Sub Command1_Click()
Str1 = Text1
Char = Text2
k = 0
i = 2
s = ""
For i = i To Len(Str1)
 If Mid(Str1, i, 1) = Char Then
 k = k + 1
 s = s + Str(i)
 End If
Next
Text3 = s
Text4 = k
 
End Sub

Код к задаче: «В строке заменить все двоеточия точкой с запятой, подсчитать количество замен - VB»

textual
Function Task(Stri as String) As integer
   Task=len(Stri)-len(Replace$(Stri,":",""))
   Stri=Replace$(Stri,":",";") 
End Sub

6   голосов, оценка 3.667 из 5


СОХРАНИТЬ ССЫЛКУ