Finds the specified text in a text range, and returns a TextRange object that represents the first text range where the text is found. Returns Nothing if no match is found.
Dim strFindWhat As String: strFindWhat = Dim treFind As TextRange Set treFind = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Find(FindWhat:=strFindWhat)
The following arguments are optional
(Long) - The position of the character (in the specified text range) after which you want to search for the next occurrence of FindWhat. For example, if you want to search from the fifth character of the text range, specify 4 for After. If this argument is omitted, the first character of the text range is used as the starting point for the search.