Вы не разместили свой код в своем сообщении, поэтому я не знаю, что вы пытались, но этот код отлично работает для достижения вашей цели.
Dim textBoxString As String = TextBox1.Text.Trim
'Create a string array with every words'
Dim words() As String = textBoxString.Split(" ")
'labelString is our final result'
Dim labelString As String = ""
'cycle throught every word'
For i = 0 To textBoxString.Length - 1
Try
'substring(0,1) takes only the first char of the word'
words(i) = words(i).ToUpper().Substring(0, 1) & words(i).Substring(1, words(i).Length - 1)
labelString = labelString & words(i) & " "
Catch ex As Exception
Err.Clear()
Exit For
End Try
Next
Label1.Text = labelString
Маленькое объяснение моего кода
words(i).ToUpper.Substring(0,1)
требуется только первый символ каждого слова в цикле.
words(i).Substring(1, words(i).Lenght -1)
занимает все слово без первого символа
labelString = labelString & words(i) & " "
объединяет все слова вместе.