Как дублировать элементы в строке?

[lorddrous]

Есть задание, в котором нужно дублировать элементы отличные от какой-либо цифры, к примеру строка - "ds2k17d9", цифра будет к примеру 7, все символы, кроме 7 должны быть дублированы, я написал код, но он не работает и я не понимаю почему
Screenshot_25.png

[Step_UA]

1) Пытаетесь произвести замену в переменной Zam - она пустая, если это весь код
2) Лучше к переменной (хоть и Zam) добавлять рассматриваемый в теле цикла символ L один или два раза. Replace в данном случае не подходит ...

[SAS888]

Можно, например, так:

Sub qq()
    a = "835232": b = "2"
    For i = 1 To Len(a)
        c = Mid$(a, i, 1)
        If c = b Then Zam = Zam & c Else Zam = Zam & c & c
    Next
    MsgBox Zam
End Sub