Строки. Замена повторяющихся символов - VB

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

Добрый день. Помогите, пожалуйста, составить программный код к задаче: Дана строка, в которой имеются повторяющиеся символы, идущие последовательно друг за другом. Получить из неё новую строку преобразовав исходную так, чтобы все группы повторяющихся символов вида "а...а" были заменены на два символа вида "na", где n - количество повторений символа "а".

Решение задачи: «Строки. Замена повторяющихся символов»

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

                            Private Sub Command1_Click()
Text2.Text = ""
For i = 1 To Len(Text1.Text) - 1
t = Mid(Text1.Text, i, 1)
k = 1
  Do While t = Mid(Text1.Text, i + 1, 1)
   k = k + 1
   i = i + 1
   Loop
   If k = 1 Then k = ""
   Text2.Text = Text2.Text & k & t
Next i
End Sub
                        