Private Sub Command2_Click()
Dim S As String
Dim i As Integer
S = " " & TextBox1.Text 'специально добавляем пробел в начало строки,
'для работы алгоритма
For i = 2 To Len(S)
If (Mid(S, i - 1, 1) = " ") Then 'если символ из строки S стоящий на позиции i-1 = пробел
S = Left(S, i - 1) & UCase(Mid(S, i, 1)) & Right(S, Len(S) - i) 'то мы берем часть символом слева от iго,
' сам iый символ делаем заглавным и приписываем все что справа
End If
Next i
Text2.Text = Mid(S, 2) ' И записываем ответ без первого пробела, который мы прибавили в начале
End Sub