Extract Text From A String

I would like to extract whole word according to starting string.
I wrote following code, but function " find" is not exist.

Sub GetFullName()
Dim str As String
str = InputBox("Requested String?")

Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select

For Each rng In Selection
rng.Offset(0, 1) = Mid(A2, Find(str, A2, 1), Find(" ", A2, Find(str, A2, 1)) - Find(str, A2, 1))
Next rng
End Sub