Удвоить все символы в последнем слове в тексте из слов (vba)

[Sn_ova]

Нужно поправить программу. В моей программе удваивается слово: АРОМА->АРОМААРОМА, а нужно АРОМА->ААРРООММАА. Спасибо заранее.

Private Sub CommandButton1_Click()
Dim s1, s As String

Dim a, b, k As Variant
a = Split(TextBox1.Text)
n = UBound(a)

a(n) = a(n) + a(n)
'k = a(n)

'g = UBound(k)
'For i = 0 To g
'k(i) = k(i) + k(i)

TextBox3.Text = a(n)

End Sub

[gaw4]

 TextBox3.Text = ""
 For i = 1 To Len(a(n))
TextBox3.Text = TextBox3.Text & Mid(a(n), i, 1) & Mid(a(n), i, 1)
Next

[Sn_ova]

gaw4, большое спасибо!