Вvba: дана строка s и символ c. удвоить каждое вхождение символа c в строку s

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