linieskift efter x antalt tegn og mellemrum

Følgende kode laver linieskift efter antal tegn, men
vil gerne have den til at lave linieskiftet efter et ord og ikke midt i, altså efter et mellemrum.

<%
inputStr = rs("kommentar")
for i = 1 to len(inputStr) step 60
if (len(inputStr) - i) < 60 then
  strNyTekst = strNyTekst & right(inputStr, (len(inputStr) - i))
else
  strNyTekst = strNyTekst & mid(inputStr, i, 60) & "\<BR>\"
end if
next
%>

er der en ørn herude ????