Задача в VBA: Дана строка S и символ C. Удвоить каждое вхождение символа C в строку S

Question

Задача в VBA:
Дана строка S и символ C. Удвоить каждое вхождение символа C в строку S

Answer 1

Sub Zadanie()
Dim S As String
Dim C As String
S = InputBox("Stroka?")
Again:
C = InputBox("Simvol?")
If Len(C) <> 1 Then GoTo Again
S = Replace(S, C, C + C)
MsgBox (S)
End Sub