Function mysize(num)

 mysize=num

 if mysize>1024 then

  mysize=round(mysize/1024,0)

  if mysize>=1024 then

   mysize=round(mysize/1024,0) & "M"

  else

   mysize=mysize & "KB"

  end if

 else

  mysize=mysize & "B"

 end if

End Function