如何用vb实现string类的indexof(substring)功能 求代码

Question

不要求调用vb中的indexof功能，而是自己写。应该是类似于把string变成chars()然后自己查找位置之类的，但是不会写，求大神

Answer 1

 最简单的
function foo(str as string, sfind as string) as integer
dim i as integer
dim r as integer
r = -1
for i = 1 to len(str) - len(sfind) + 1
    if mid(str, i, len(sfind)) = sfind then
            r = i
                exit for
        end if
next
foo = r
end function