После каждого символа строки вставить символ, введённый пользователем

Function MyIns(Str As String, Ins As String) As String
  Dim temp As String
  temp = ""
    For i = 1 To Len(Str)
        temp = temp + Mid(Str, i, 1) + Ins
    Next
    MyIns = temp
End Function
 
Sub tt()
    Debug.Print MyIns("1111", "0")
End Sub

Sub Вставщик() 'разбивает выделенный текст символом-константой и шлёт его в инпутбокс
Const символ = 183      'символ, разбивающий строки (код)
Dim результат           'строки, разбитые символами
    результат = StringSpoiler(Selection, Chr(символ))
    InputBox "Выделено:" & vbCr & Selection, "Разбитый текст", результат
End Sub
 
Function StringSpoiler(строка As String, Optional spoiler As String)
Dim i As Long, формат As String
    If IsMissing(spoiler) Then spoiler = " " 'если нет символа - берём пробел
For i = 1 To Len(строка)
формат = формат & "&" & spoiler
Next
'MsgBox формат, vbOKOnly, "Формат для фунции Format"
    StringSpoiler = Format(строка, формат) 'возвращаем напичканные строки
End Function