Indekset er uden for området: [number: 0]

Okay jeg har et par lykker her og et array:

Response.Write "              <table border=""0"" cellspacing=""0"" cellpadding=""2"">"& vbCrLf
BuildStageOneArray = "A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P"
StageOneArray = Split(BuildStageOneArray, "|")
AntalRows = 0
For ss = 1 To Clng(inptGroups)
    If Clng(AntalRows) = 0 Then
        Response.Write "              <tr>"& vbCrLf
    End If
    Response.Write "                  <td valign=""top"">"& vbCrLf &_
    "                    <table style=""border-top: 1 solid "& strtableBorderColor &";border-left: 1 solid "& strtableBorderColor &";border-right: 1 solid "& strtableBorderColor &""" border=""0"" cellspacing=""0"" cellpadding=""2"">"& vbCrLf &_
    "                      <tr style=""font-color: "& strFontColorSmall &";font-family: "& strFont &";font-size: "& strFontSizeSmall &"px;font-weight: "& strFontWeightSmall &""">"& vbCrLf &_
    "                        <td align=""center"" colspan=""3"" style=""border-bottom: 1 solid "& strtableBorderColor &""">Group "& StageOneArray(ss - 1) &"</td>"& vbCrLf &_
    "                      </tr>"& vbCrLf
    For tt = 1 To Clng(inptTpg)
        Response.Write "                      <tr style=""font-color: "& strFontColorSmall &";font-family: "& strFont &";font-size: "& strFontSizeSmall &"px;font-weight: "& strFontWeightSmall &""">"& vbCrLf &_
        "                        <td style=""border-bottom: 1 solid "& strtableBorderColor &";border-right: 1 solid "& strtableBorderColor &""">Team"& tt &"</td>"& vbCrLf &_
        "                        <td style=""border-bottom: 1 solid "& strtableBorderColor &";border-right: 1 solid "& strtableBorderColor &""">0</td>"& vbCrLf &_
        "                        <td style=""border-bottom: 1 solid "& strtableBorderColor &";"">0</td>"& vbCrLf &_
        "                      </tr>"& vbCrLf
    Next
    Response.Write "                    </table>"& vbCrLf &_
    "                  </td>"& vbCrLf
    AntalRows = AntalRows + 1
    If Clng(AntalRows) = 8 Then
        Response.Write "              </tr>"& vbCrLf
        AntalRows = 0
    End If
Next
If Clng(AntalRows) > 0 Then
    Response.Write "              </tr>"& vbCrLf
End If
Response.Write "              </table>"& vbCrLf &_

Jeg vil gerne have at den skal udskrive det i 2 rækker, med 8 grupper i hver, men det kan de fleste vist godt se.
Hvis jeg prøver det jeg har gang i der, kommer den bare med en fejl (den som står i overskriftet).

Efter hvad jeg har læst mig frem til, skal jeg nok bruge noget ReDim, Ubound eller noget i den retning, men hvordan ?

På forhånd tak!