I have a program that when i enter a first middle and last name like "John Doe Smith" into a text box named txt1 it will print the initals like this "jDs" to a label named lbl1.

This is a code that I used and it only gives what I put in like if I put in "John Doe Smith" into a text box the label displays "JDS" and if i put in "john doe smith" the label prints out "jds" and you get the idea.

So here is the code, Can someone fix it up a bit so i get what I need?

Dim strArr() As String, intIdx As Integer
strArr() = Split(txt1.text,"")
For intIdx = 0 To Ubound(strArr)
lbl1.caption = lbl1.caption & Left$(strArr(intIdx), 1)