Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim _strText, _strSuche, _strWort As String
 
        _strText = "Ich helfe doch gerne, auch wenn ich oft Hilfe brauche :D"
        _strSuche = "ilf"
 
        For Each wort As String In _strText.Split(" ")
            If wort.Contains(_strSuche) Then
                _strWort = wort
                MsgBox(_strWort)
                Exit For
            End If
        Next
 
    End Sub