længde på streng

Sub FormatName
If (Len (rs2(1))>25) Then
Response.Write(Left(rs2(1),22)) & "..."
Else
Response.Write rs2(1)
End If
End Sub

giver desværre samme resultat..
jeg har nu prøvet at ligge rs udenfor som:

Function FormatName(TextLength)
If (Len(TextLength) > 25) Then
response.write(Left(TextLength,20)) & "..."
Else
Response.Write TextLength
End If
End Function

- men det virker desværre heller ikke..