problema tronca stringa

[piccolobill]

questa è la funzione (presa da google :-))

function TagliaStringa(stringa, max_char)
    if len(stringa)>max_char then
        stringa_tagliata=Mid(stringa, 1, max_char)
        last_space=InStrRev(stringa_tagliata," ")
        stringa_ok=Mid(stringa_tagliata, 1, last_space)
        TagliaStringa = stringa_ok&"..."
    else
        TagliaStringa = stringa
    end if
end function 

Mi da questo errore

Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'InStrRev'

/read.asp, line 36

Come mai?