Вывести первые буквы слов - VB

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

Доброго времени суток. Очень нужна ваша помощь. Есть задачка, суть её такова: необходимо вывести первые буквы каждого слова в предложении. Бьюсь третий день, пока получилось так:

Dim TestString As String
Dim TestArray() As String
Private Sub Command1_Click()
TestString = Text1.Text
TestArray() = Split(TestString, " ")
Label1 = Mid(TestArray(0), 1, 1) + Mid(TestArray(1), 1, 1) + Mid(TestArray(2), 1, 1) + Mid(TestArray(3), 1, 1)................
End Sub

Дело в том что я никак не могу вывести все буквы в label1. Если предварительно ввести в textbox то количество слов, которое указано в выводе label1 то всё работает, но это не устраивает. В общем, прошу помощи.

Решение задачи: «Вывести первые буквы слов»

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

                            For i= 0 to Ubound(TestArray) 
 Label1 = Label1 & Mid(TestArray(i), 1, 1) 
next i
                        