Visual Basic - Poner texto en negrita en un Textbox

Buenas.

Estoy tratando de desarrollar un metodo de busqueda de texto tentro de un Textbox. Es igual a la funcion de Buscar que trae el notepad.

asta ahora e logrado buscar el texto y trasladarme hasta la linea donde esta, pero ¿Como ago para seleccionar el texto encontrado?

Grasias.

Te doy un ejemplo, ojalá sea parecido,
En Text1 dejo la cadena y en Text2 esta la palabra que quiero buscar

Dim Inicio As Integer
Dim Final As Integer

Text1.Text = "Esta es una prueba de la Web del Programador"
Text2.Text = "prueba"

Inicio = InStr(Text1.Text, Text2.Text)

Text1.SelStart = Inicio - 1
Text1.SelLength = Len(Text2.Text)
Text1.SetFocus

Nota: debes darle siempre el foco al Text1 para que te quede destacado

Grasias marcos Santis, era lo que necesitaba.

Para servirles