Find the length of a given string, without using "len" function

 Find the length of a string, without using "len" function..?

x="String"

i=1

Do

   y=mid(x,i,1)

   if y="" then

      exit do

   else

      i=i+1

   end if

loop until y=""

msgbox i-1