Visual Basic 6 - Trova

Ciao a tutti.
Avete presente la funzione "Trova" del notepad di windows, io vorrei ricrearla nel mio programma.
Allora io ho un command button, una textbox e una richtextbox,chiamata a.
Allora se nella richtextbox ci fosse scritto:"ciao come va?", vorrei che mi evidenziasse, solo dopo aver scritto "ciao" nella textbox e dopo aver premuto il commad button, solo la parola "ciao" contenuta nella richtextbox (a)
Che dite è possibile?
Ciao

PS. Scusate qualche "CIAO" di troppo

Private Sub Command1_Click()
Dim i As Integer
With RichTextBox1
i = InStr(1, .Text, Text1.Text)
If i > 0 Then
.SelStart = i - 1
.SelLength = Len(Text1.Text)
.SelBold = True
End If
End With
End Sub

Ok era quello che volevo.
Però se volessi fare una ricerca che trova tutti i sostantivi presenti nella rich textbox?

Ad es. nella rich textbox c'è scritto:"ciao come va???
comunque
ancora ciao
ciao
comunque.
ciao."(che fantasia)

Comunque, è possibile evidenziarli tutti???

Private Sub Command1_Click()
Dim i As Integer
With RichTextBox1
i = 1
Do
i = InStr(i, .Text, Text1.Text)
If i = 0 Then
Exit Do
End If


.SelStart = i - 1
.SelLength = Len(Text1.Text)
.SelBold = True
i = i + 1
Loop
End With
End Sub

Private Sub Command1_Click()
Dim i As Integer
With RichTextBox1
i = 1
Do
i = InStr(i, .Text, Text1.Text)
If i = 0 Then
Exit Do
End If


.SelStart = i - 1
.SelLength = Len(Text1.Text)
.SelBold = True
i = i + 1
Loop
End With
End Sub

Ok, riuscito...

Grazie e ciao