Visual Basic - Modificar atributos de Texto seleccionado

Hola estimados programadores necesito el codigo para elaborar un pequeño editor de texto donde yo escriba en un textbox una cadena de caracter, debo tener como opciones en el diseño el poder darle atributos de Negrita, Cursiva, Subraya, pero solo deseo que esa modificaciones se le apliquen al texto que esta resaltado. Espero haber sido claro con mi problema agradacere su atencion prestada. Hasta pronto con mas preguntas

Primero seleccionas el texto.. Puedes Jugar con lo que sigue...

Private Sub ControlX_Click ()
Font.Bold = Not Font.Bold ' Alterna negrita.
Font.StrikeThrough = Not Font.StrikeThrough ' Alterna tachado.
Font.Italic = Not Font.Italic ' Alterna cursiva.
Font.Underline = Not Font.Underline ' Alterna subrayado.
Font.Size = 16 ' Establece la propiedad Size.
If Font.Bold Then
Print "El grosor de la fuente es" & Font.Weight & " (negrita)."
Else
Print "El grosor de la fuente es" & Font.Weight & " (no negrita)."
End If
End Sub
Buena Suerte y prospera cacería