Преобразование символов в RichTextBox - VB

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

Доброго здоровья, люди! Помогите, пожалуйста. Как при нажатии на кнопку преобразовать часть текста в RichTextBox в заглавные буквы, а потом вернуть обратно (аналог UCase и LCase для TextBox)? Спасибо.

Решение задачи: «Преобразование символов в RichTextBox»

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

                            If RichTextBox1.SelLength Then  ' если что-то выделено
    RichTextBox1.Text = Left$(RichTextBox1.Text, RichTextBox1.SelStart) & _
        UCase$(Mid$(RichTextBox1.Text, RichTextBox1.SelStart+1, RichTextBox1.SelLength)) & _
        Mid$(RichTextBox1.Text, RichTextBox1.SelStart+RichTextBox1.SelLength+1)
End If
                        