mod funktion

Hej
Hvordan laver jeg en tabel der for hvert 5 element laver en ny række.
Det går galt i denne linje:
if intPos mod 11 = 5 then 

jeg har prøvet følgende:

alfabet = \"A,B,C,D,E,F,G,H,I,J,K,L,M,,O,P,Q,R,S,T,U,V,X,Y,Z,Æ,Ø,Å\"
           
strALFA = Split(alfabet, \",\", -1, 1)
limitALFA = UBound(strALFA)
           
intPos = 1
Response.Write \"<table>\"
           
For Each Item In strALFA
           
if intPos mod 11 = 5 then   
response.write \"<tr>\" & vbcrlf
END if
                           
Response.Write \"<td>\" & Item & \"</td>\"
           
if intPos mod 11 = 5 then   
Response.write \"</tr>\" & vbcrlf
END if   
           
intPos = intPos +1

Next
       
Response.Write \"</table>\"