Обработка символьной строки - VB

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

Есть задача: Ввести произвольную символьную цепочку. Удвоить ее символы на четных местах. В полученной цепочке подсчитать число символов, совпадающих с первым. Так как совершенно не умею работать с символьными переменными (а в интернете почему-то катастрофически мало информации) и времени, к сожалению, очень мало, очень нужна ваша помощь в решении этой задачки. Заранее БОЛЬШОЕ СПАСИБО!

Решение задачи: «Обработка символьной строки»

textual
                            Листинг программы 
                        

                            Sub Task()
'Ввести произвольную символьную цепочку. Удвоить ее символы на четных местах.
'В полученной цепочке подсчитать число символов, совпадающих с первым.
Dim sSource As String, sDest As String, i As Integer, iArr
sSource = InputBox("Ввод символов:")
For i = 1 To Len(sSource)
    sDest = sDest & Mid(sSource, i, 1)
    If i Mod 2 = 0 Then sDest = sDest & Mid(sSource, i, 1)
Next
iArr = Split(sDest, Mid(sSource, 1, 1))
MsgBox sDest & vbNewLine & "Первый символ встречается " & UBound(iArr) & " раз"
End Sub
                        