dim str1 as string
dim str2 as string
str1="abced fg"
str2="c"
debug.print instr(str1,str2)