Richtextbox instance of string search

[xpinvader]

Private Function Processstring(ByVal strin As String) As String
Dim astrWords As String() = New String() {"parrot"}
Dim strOut As String = strin
Dim strWord As String
For Each strWord In astrWords
If strin.indexOf(strWord, 0) >= 0 Then
strOut = strWord
Exit For
End If
Next
Return strOut
End Function

just like that.. from that i will be expecting the function name: Processstring