Перевести первый символ предложения, записанного в TextBox, в верхний регистр - VB

Формулировка задачи:

Всем привет! Помогите разобратся с кодом:

If txtName2.Tag = '' Then
   txtName2.Tag = txtName2.SelStart
   txtName2.Text = StrConv(txtName2.Text, vbProperCase)
   txtName2.SelStart = txtName2.Tag
   txtName2.Tag = ''
End If

Он каждое слово переводит в верхний регистр, а надо бы, чтобы только начало предложения, как в Word'e было. Заранее всем спасибо.

Решение задачи: «Перевести первый символ предложения, записанного в TextBox, в верхний регистр»

textual
                            Листинг программы 
                        

                                Dim strText As String
    
    strText = txtName2.Text
    
    If txtName2.Tag = '' Then
        txtName2.Tag = txtName2.SelStart
        Mid(strText, 1, 1) = UCase(Left(txtName2.Text, 1))
        txtName2.Text = strText
        txtName2.SelStart = txtName2.Tag
        txtName2.Tag = ''
    End If
                        