Substring check within VBA

If Str1 and Str2 are strings, is there a function or simple coding within VBA
to return TRUE if Str1 is a substring of Str2, otherwise FALSE?

Thanks in advance
--
Gary's Student