Três pontinhos

Engraçado, eu utilizo esse código de três pontinhos há um tempo,nunca tive problema. Agora estou tendo problema em um código. Eu sempre fiz assim...

>
<%Function Resumindo(strBuf, intSize)

Dim i, strTmp

If Len(strBuf) < intSize Then

Resumindo = strBuf

Else

If Mid(strBuf, intSize, 1) = " " Then

strTmp = Left(strBuf, intSize - 1)

Else

strTmp = Left(strBuf, intSize)

For i = intSize + 1 To Len(strBuf)

If Mid(strBuf, i, 1) = " " Then Exit For

strTmp = strTmp & Mid(strBuf, i, 1)

Next

End If

Resumindo = strTmp & "..."

End If

End Function%>

<%= resumindo(RS("previo"), 26)%>

Ocorre esse erro

Microsoft VBScript runtime error '800a005e' Invalid use of NullObrigado