Wrong number of arguments or invalid property assignment

Hej

Den siger følgende ved den første linie: Wrong number of arguments or invalid property ssignment: 'MyReplace'

Hvorfor? (Det virkede fint endtil jeg udbyggede "MyReplace" med "way")

strSQL = "UPDATE ARTIKEL set titel = '" & MyReplace(Request.form("titel"), "screenToDB") & "', forfatter = '" & MyReplace(Request.form("forfatter")) & "', beskrivelse = '" & MyReplace(Request.form("beskrivelse")) & "', filnavn = '" & Request.form("filnavn") & "' WHERE nr = " & nr

function MyReplace (replaceStr, way)

    if way = "screenToDB" then
        replaceStr = Replace(replaceStr, Chr(39), "´")
        replaceStr = Replace(replaceStr, Chr(34), """)
        replaceStr = Replace(replaceStr, vbCrlf, "<br>")

    elseif way = "DBToScreen" then
        replaceStr = Replace(replaceStr, "´", Chr(39))
        replaceStr = Replace(replaceStr, "&quot;", Chr(34))
        replaceStr = Replace(replaceStr, "<br>", vbCrlf)
    end if
   
      MyReplace = replaceStr
 
end function