Пытаюсь найти позицию точки. Функция InStr у меня глючит, то находит точку, то не находит. Попытался написать свою функцию. Но не работает :-(

function fForward(i)
...
  sWord="jkdjfd.gf"
  iPeriod=0
  iSearch=fSearch(sWord,iPeriod)
...
end function

Function fSearch(sWord,iPeriod)
   for i=1 to Len(sWord)
      if MID(sWord,i,1)="." then iPeriod=i
   next
end function