SBL Replace

function Replace(Entv as String, Sstr as string, Rstr as string) as String
  dim a as integer
  dim tmpstr as string
  a = 1
  tmpstr = Entv
  while (a > 0) 
    a = instr(a, tmpstr , Sstr )
    if a > 0 then
      tmpstr = mid(tmpstr, 1, a-1) + RStr + mid(tmpstr,a+len(Sstr))
      a = a + len(Rstr)
    end if   
  wend
  Replace = tmpstr 
end function