Как продублировать каждый символ в слове - VB

Формулировка задачи:

привет светлые умы, вот такое вот задание: в текстбокс вводится слово, программа должна вывести этоже слово, только продублировав кажлый знак, ну допустим ввели мы "привет5" после нажатия кнопки получаем "ппррииввеетт55"... сделать надо с помощью оператора мид.... помогите пожалуйста

Решение задачи: «Как продублировать каждый символ в слове»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Function s_2(s As String) As String
Dim i&
For i = 1 To Len(s)
    s_2 = s_2 & String$(2, Mid$(s, i, 1))
Next i
End Function
 
Function s_3(s As String) As String
Dim i&
s_3 = Space$(Len(s) * 2)
For i = 1 To Len(s)
    Mid(s_3, i * 2 - 1) = String$(2, Mid$(s, i, 1))
Next i
End Function
 
Function dup(s As String) As String
         If Len(s) = 1 Then
            dup = s & s
         Else
            dup = dup(Mid$(s, 1, 1)) + dup(Mid$(s, 2))
         End If
End Function
 
 
Sub example()
Dim t!, s$
s = Space$(4000)
DoEvents
t = Timer
s_2 s
Debug.Print "Склеивание", Format(Timer - t, "0.000")
DoEvents
t = Timer
s_3 s
Debug.Print "Оператор Mid", Format(Timer - t, "0.000")
DoEvents
t = Timer
dup s
Debug.Print "Рекурсия", Format(Timer - t, "0.000")
 
End Sub