Ciclo if: condizioni multiple consecutive

[betto]

Ciao a Tutti,
volevo chiedere se si poteva migliorare il seguente codice funzionante:

Response.Write "<TABLE border=1><TR>"
For iLoop = 0 to objRS.Fields.Count - 1
If (iLoop=0 Or iLoop=2 Or iLoop=5 Or iLoop=6 Or iLoop=7 Or iLoop=8 Or iLoop=9 Or iLoop=10 Or iLoop=11 Or iLoop=12) Then
Response.Write "<TD>" & objRS.Fields(iLoop).Name & "</TD>"
ElseIf iLoop = 1 Or iLoop=3 Or iLoop=4 Or iLoop=13 Then Response.Write "<TD>Status</TD>"
End If
Next
Response.Write "</TR>"
.....

Volevo chiedere se i valori consecutivi di iLoop, ad esempio quelli che vanno da 5 a 10, si possono raggrruppare in un range tipo 5-10, 5:10
OPPURE
si puo' creare una variabile che contiene i diversi valori di iLoop in modo da non dover scrivere iLoop n-volte all' interno dell' if ??

Grazie mille in anticipo !!!

P.S. Volevo chiedere se c' erano altre soluzioni al Select Case che alla creazione di un Array.