Remplacer en freebasic

REM compliqué cette mise en page avec ce module
dim chaine as string
dim chaine2 as string

function replace(byval SearchString as string,byval FromChar as string,byval ToChar as string) as string
   if len(SearchString) = 0 or len(FromChar) = 0  or len(ToChar) = 0 then return ""
   dim location as integer = 1 - len(ToChar)
   do
       location = instr(location + len(ToChar),SearchString,FromChar)
       if location > 0 then
           SearchString = left(SearchString,location - 1) & ToChar & mid(SearchString,location + len(FromChar))
       else
           exit do
       end if
   loop
   Return SearchString
end function

chaine="ici et ici au milieu "

print chaine
chaine2=replace(chaine,""," ")
chaine2=replace(chaine2,""," ")

print chaine2