VB contare quanti caratteri a una stringa

[xegallo]

function iContaquanti(sInput as string,sFind as string)as integer
   dim flag as boolean
   dim i as integer
   dim iChar as integer
   dim sTemp as string
   flag = false
   do until flag = true
      iChar = instr(iChar + 1,sinput,sfind)
      if ichar = 0 then 
         flag = true
         exit do
      end if
      i = i + 1
   loop
   icontaquanti = i
end function