Задание: Дана строка символом. Заменить во всех словах первую букву заглавной.

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