求助 ，如何自定义这个函数
想建一个自定义函数ifget
ifget（x ，y）
xy是字符串 ，函数的返回值是根据xy的关系返回一个布尔值 ，我是新手 ，求完整函数
若y在x用出现就返回FALSE ，反之就返回TRUE ，大概用到的有
for循环
MID函数
len函数
if语句
不要直接用instr函数 ，我还要加一些东西。
有会的呢 ，求完整的函数 ，能直接调用呢？

黑客大叔的解法是
Private Function ifget(ByVal x As String, ByVal y As String) As Boolean
If y.IndexOf(x) <> -1 Then
ifget = True
ElseIf x.IndexOf(y) <> -1 Then
ifget = False
ElseIf y.IndexOf(x) = -1 Then
'当互相都不存在对方时，函数返回 默认值 false
' MsgBox("两者互相都不在！")
ElseIf x.IndexOf(y) = -1 Then
'当互相都不存在对方时，函数返回 默认值 false
' MsgBox("两者互相都不在！")
End If
End Function

另一种是
Private Function ifget(x As String, y As String) As Boolean
If x = "" Or y = "" Or Len(y) > Len(x) Then Exit Function
ifget = True
Dim i As Integer
For i = 1 To Len(x) - Len(y) + 1
If Mid(x, i, Len(y)) = y Then
ifget = False
Exit For
End If
Next
End Function