Forkorte tekst

Hej
Sidder med et problem.
Har en tekststring "str" som variere i længden, denne tekst skal gerne kunne deles efter x-antal tegn, dog skal teksten ikke dele midt i et ord.
Har lavet en funktion, men den virker ikke helt optimalt. Nogle ord forsvinder.

---
function Viser(str, lstartnr, antaltegn)

    antaltegn=lstartnr+antaltegn

    Do While antaltegn>lstartnr

        nr=Instr(antaltegn, str, " ")
        nr1=Instr(antaltegn, str, ",")
        nr2=Instr(antaltegn, str, ".")
        nr3=Instr(antaltegn, str, "?")

        if(nr=antaltegn)or(nr1=antaltegn)or(nr2=antaltegn)or(nr3=antaltegn) then
            slutantal = antaltegn-lstartnr

            Viser = mid(str, lstartnr, slutantal) &"<br>"
            startnr = lstartnr+slutantal
            Exit do
        end if
        old=nr

    antaltegn=antaltegn-1
    loop
end function

ny= ny& Viser(str, 1, 15)
ny= ny& Viser(str, startnr, 20)
ny= ny& Viser(str, startnr, 25)
ny= ny& Viser(str, startnr, 27)
ny= ny& Viser(str, startnr, 27)
ny= ny& Viser(str, startnr, 27)

---