оставить программу на VBA! Есть часть, доделать нужно. Плиззз

Question

Как реализовать. Вот набросал 
Sub valek() 
Dim stroka, snew As String 
Dim n, i As Integer 
stroka = InputBox("Введите строку") 
n = Len(stroka) 
snew = "" 
For i = 1 To n 
c = Mid(stroka, i, 1) 
If (c = "?") Then 
c = "*" 
End If 
snew = snew + c 
Next i 
MsgBox (snew) 
End Sub 
Но тут Заменят всего один символ на * А мне надо, чтобы на * Помогите пожалуйста!

Нужно заменить группу символов ???на один символ *

Именно ???заменить на *. Не один? на * и не ?? на *, только ???на * иначе пропускать.

Жанна · Accepted Answer

вроде все верно у тебя 
 
не понял, почему только 1 символ = все знаки вопроса заменятся на * 
так надо или нет? 
 
есть команда INSTR 
 
например Х=INSTR$ (c, "йцук") 
Х тебе покажет поряковый номер

Гуля Шаумурунова · Answer

Sub valek() 
stroka$ = InputBox("Введите строку") 
MsgBox Replace(stroka, "???", "*") 
End Sub