Dim x x=InStr("abc abc","abc") Msgbox x