mellanslag i replace

jag vill ha så när man slår ett mellanslag blir det en bild, men det vill inte riktigt funka för mig

Function meny(strText)
strText = Server.HTMLEncode(strText)
strText = Replace (strText,"s","<img src='s.gif'>")
strText = Replace (strText,"k","<img src='k.gif'>")
strText = Replace (strText,"a","<img src='a.gif'>")
strText = Replace (strText,"t","<img src='t.gif'>")
strText = Replace (strText,"n","<img src='n.gif'>")
strText = Replace (strText,"|","<img src='meny-block.gif'>")
strText = Replace (strText," ","<img src='mellanslag.gif'>")
strText = TRIM(strText)
meny = strText