Subscript out of range: [number: 5]

Jeg forsøger at tilføje et felt i nedenstående, men får fejlen:
Subscript out of range: '[number: 5]'
add.asp, line 29 
Jeg forsåtr at det har noget at gøre med jeg skal udvide array - men hvor gør jeg det

<%
id = request.querystring("a_id")
items = request.form("items"&id)
pris = request.form("pris"&id)
artikelnr = request.form("nr"&id)
bez = request.form("bez"&id)
antalKs = request.form("antal"&id)
response.write("Session items:" & session("items"))

if isempty(session("varekob")) then
    dim varekob(100,4)
    session("items")=-1
    session("varekob") = varekob
    i = -1
else
    i = session("items")
    varekob = session("varekob")
end if

if len(id)>0 and len(items)>0 then
    if items>0 and i <100 then
        i = i + 1
        varekob(i,0) = items
        varekob(i,1) = id
        varekob(i,2) = preis
        varekob(i,3) = artikelnr
        varekob(i,4) = bez
        varekob(i,5) = antalKs  ' <- Denne fejler
       
        session("items") = i
        session("varekob") = varekob
        Erase varekob
        %>
  <p class=header>Vent venligst .. arbejder</p>
  <script type="text/javascript">
  setTimeout("top.location.href='<%=Request.ServerVariables("http_referer")%>'",0)
  </script>
        <%
    end if
end if
%>