Hjælp tli at løse denne fejlkode

Jeg bruger dette script til at sige maks 15 ord i en sætning.

Men jeg får denne fejl på den ene af siderne
-----------------------
Microsoft VBScript runtime error '800a000d'

Type mismatch: 'LBound'

Fejlkode linje 649
-----------------------------
Her er min kode
<%
  intMax1 = 15
  arrTxt1 = Split(rsnyetider.Fields.Item("Diverse").Value, " ")

  strTxt1 = "" ' <-- DENNE LINIE 'NULSTILLER'
  For i = LBound(arrTxt) To intMax1  (linje 649)
    strTxt1 = strTxt1 & " " & arrTxt(i)
  Next

  Response.Write(strTxt1)
%>
----------------------