Richtextbox instance of string search

[xpinvader]

I want to get a string from the richtextbox but here how it goes

in programming for example i want to get all class/function and variable names in this given code.

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

how would i get the "processstring" by getting it after the word function?