Take the text from your text box, and use the Split function to break it into words:
Dim output() As String
output = Split("Brothers in Arm", " ")
Now you can use an array to extract the first letter of each word (since they are in separate array elements that's pretty simple) and build your output string.