Check for a text in a string

Dim find As String = "Ted"
Dim strg As String = "My name is Ted Unnikumaran"
If InStr(obj, find) = 1 Then
MsgBox("found it")
Else
MsgBox("not found")
End If